
4012 . 
4 Cl 13 

.„4&14_ 

4j?JJ5_i_ 
4_0JL 6. _ 
4C>3E 
41 ID . 
4 1 FC ,, 

-j320C'. 

4248_ 

423C. 

4296 

4297 
42A7 


42ft9 


5r0370 


47B6 


=004D 
=02FC 
=02 F 2 


1400 SCRSPD *=5= *+l. 

1420 SCROLF *= *+1 . 

_ 1440 KX *= * + l _ 

1460 JSY _JL=L _A±1_ _ 
,1.490 .CX *= *+l 

500 


1520 0LDVP0S *=.i.* + i 
1540 OLDHPOS *= *+l 

1 560 CHlNDX __*= Jf±i_ 

ISSSLGUBQfcfeR .*» ltl_ 

1600 SAVBUF *= *+4<L 

1620 DSPTBL * = *±223 ; 

1640 dSRTBH *= *+223 5 

1660 M4TBL. *= *+16 
1680 C HARH *= *+6 4 _ j 

_LZ.QQ. .CHART- .*= .*+44 5 

_172 0 RQ WBUF *= * + 10. 

1740 CARLFT *= *+l _ 

1760 PLYRQAT *= *+16 
1730 LINCNT *= *+l 

. JLaiXL^USX-J&jbJ._ 

1820. BUSY. *=_*+! 

_ 1840..P4JS;L*= . *+268. 
1360 PFDftTA *= *+1024 


1880 HMEMSIZ = 880 
1900 HMEM *= *+HMEMSIZ 
1920 ATRACT = $4D 

1 940 _CH _=,_402.FC. 

1960 CH I = $02F2 _ 

1930 141OTBL BYTE 0. 10 


table of address ptrs to screen 


! 1 ow) 
Ihigh) 


addr.* high for ch ar index 
ad dr. lo^.for .cttar index 



header mem 


20.-50.40.50 


4B2A 2832 
4B2C G0050A0F 
4B3Q 14191E23 
4B34 282D3237 
4B38 3C41464B 


2000 M5TBL .BYTE 0,5,10,15,20,25,30,35 


2020 


.BYTE 40, 45,50, 55, 60, 65, 70,75 


Of>4(-> MXTRl. 
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_4.BSE OQpO 

_ ABSQSlQQQ 

92 0000 
40B 
20A 
^24 



26QI 
.rJiCllF. 
-D40E 
=P40A 
-0230 
-0231 
-00D4 
- OOCA 
=7000 


2080 

2100 

2120 

.2140 

2ik> 

2180 

2200 

22 20 

2240. 

2260 

2280 

2300 

2320 

2340 

2360 

23 80 

2400 


VCOUNT * *D40B 
RANDOM, f *p$OA 

WBLKD = $0224____ 

WBLKI = $ 0222 
XITV BV = *E462 _ “ ' 

CHARS - $9000 ; start of 

SMEM = :fa000-400 5 screen 

„ . „ s ' i gn to 4k 

PFLEN = 620 ; # o f Piav 

.CONSOL = tD OIF 

NMIEN = *D40E 

WSYNC = *D4QA _ ' 

SDLSTL = *0230 . 

SDLSTH = *0231 

R - *D4__ 

SC RQLC = *CA . _ 

_PMEM_= *7000 ;_player/mi 

J1P0SP0 = *D000 


start of char data (size- 4k ) __ 

j screen njenf.* ,fsi2e=4480 bytesO,. jniitst 
ign to 4k , * 

§ of Plavfield chars_ 


Elayer/mi_ssi le_ mem. ( first 768 not used) 



JsBQQfL 
-D 005 
= D006 
--D007 
■-D407 
=02C0 
= 0201 . 
.=02C2_ 


-DO 12 
-DO 13 
-DO 14 
-DO 1.5 
2.Q26F 
=D01B 


=D008 
=?D,009 
"POP A 
= D00 B 
j^OOO 
=02F4 
=D409 
=7300 
7400 
--= 7500 
= 7600 
=7700 
=022F 
=D400, 
=DQ1 D 
=7800 
=D405 
= 0012 . 


_24g0. 

2500 

2520 

2540 

2560 

2580 

2600 

2620 


HPOSMO 

HPflSCU 

HF0SM2 

HPQSM3 

PMBASE 

PCOLR 'O . 

PC0LR1 

PC0LR2 


2660 

2680 

2700 

2720 

JS.740 

2760 


2780 
2800 
2820 
_2840 
2860 
2830 
2900 
2920 
2940 
J2960 
_2980_ 
3000 
3020 
3040 
306 0 
3080 
3100 
3120 
3140 


wCOLPMO 
COLPM1 
CQLPM 2 
—C0LPM3__ 
G PRIO R 
PRIOR = 


SI ZERO 
SIZEP 1 ’j 
SIZEP 2 » 
_SIZEP 3 _j 
JOSCHARS 
CHBA5 = 
CHBASE i 
MO = 

P O = 

PI = 

_ P 2 . = _ _ 

~ P3 = 
SDMCTL 
DMACTL 
SRACTL 
IPF = 
VSCROL « 
RTCLOK : 


*D.Qp4 
- *D00 5 

= *D006 _ 

= *D007 
= *D407 

= *02C0 _ 

= *Q2C1 
= *02C2 


= *02C3 . . 


= *D012 
= *D013 

= *D014 _ 

= $D015 
=_*026F 
*D01B 


= *D008 
= *D009 

= *DOOA ____ 

= *DOOB_ 

=_ *E 000 

*02F4~~ _ 

= *D409 
PMEM+768 
PMEM+ 1 Q54 
_PMEM+10 24+2 56 
JP M E M+1024+512 
PMEM+1024+768 
= *022F 
= *D400 




*7800 
= *D405 
= *12 . 


start, of playfield data 























=7800 
=0405 
=QG1 z. 


3Q80 IFF = $7800 < 

3100 VSCROL = $D405 

3120 JLTC1J0K _= J&12 -- 

3140 _s___ 


start o+ piaytaeia aata 




14 
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4B94 
4 COO 
4C00 
4 CO 2 


4C06 

4C09 

4C0C 

4C0F 

4C12- 


1818 

4C1B 

4C1E 

4C21 

4C24 

4C27 

_4C29 

4 C2C 

4C2E 

4C31 

4C34 

4C36 

4C39 

4C3C 

4C3F 

4C42 


A200 

9A 

202C5 0 
20994F 
20C64C 
20034F 
206255 
207C54 
2 0A44E 
20FB4C 
20884C 
204064 
200569 
20E06F 

A9Q O_ 

_3D586B 
_ A901_ 
8D596B 
20A56A 
A900 
8 D024 0 
800340 
8D0440.. 
SD054CL 


3160 ; 

3180 *- $4i 

3 190 START_ 

3200 LDX #0 

3240 TXS 


$4 COO 


; init stack 


3280 

3300 


3320 
3340 
3360 
J3380. 
3 4 fiO 
.3420 
3440 
3460 
3480 


350 0 

.3520 

.'3540- 

3560 

3580 


200966 


4C45 


4C47 

_4C4A 

4C4C 

4C4F 

4051 

4C54 


A 901 

8D0740 

A240 

8EA§42 

A 94 6 

8DDD5A 

A03O 


. 4C59 
4C5B 
4C5E 
V 4C60 
4C63 
4C66 
4C68 
4C6B 


A900 

8DD95A 

A907 

8DDE5A 

20BA5E 

_A905_ 

_8D9642 

203054 


4C6E A900 
4C70 8D0C40 
4073 861440 


V M 


4.076 

4C78 

4C7B 


4C8Q 

4C82 

4085 


A93C 

8D02P3 

A980 

8DE05A 

A900 _ 

8DDA5A 

4C204D 


3800 
3620 
.3640 
3660 
3680 
3700 
37^0 
3740 
376 0 
3780 
3300 
3820 
3840 
3860 
. 3880 
3900. 
3920 
3940 
3960 
3980 
4000 _ 
4Q2Q 
4040 
4080 
4080 
4100 
4120 
_4140 
4160 
4180 
4200 
4220 
4240 
4260 


ITABLES 
IPFDATA 

IDLI ST_ 

ITCHARS 

IHMEM 

J_SMEM__ 

IVBI 
IF'MEM 
IQBJTB ; 
ISFX ; 
IFLAGS 

#0 _._ 

TYPREF 

#1 

TYPREF+1 

DATEXP 5 
#0 


; i nit OB JTBL _____ , 
* init sound effects 


expand data 


init olaver’s score. 


STA 
STA 
STA 
JSR 
LDA 
STA 
LDX 
STX_ 
LDA 
STA 
LDY 
STY 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
. STA 
JSR 


PSC0R1 
PSC0R2_ 
ROUND . 
NEWRND 
#1 

SND CTL_ 

#84 

BUGX 

#70 

OLDBUGY 

#48 

BUGY 

#0 

BUGDIR 

#7 _ 

OLDBDIR 
SHOCAR 
#5 _ 

QARLFT 
ECAR 


setup next round, 
sound on 


set car’s 


set car’s 


LDA #0 
STA SCRSPD 
S TA CHT N DX 


LDA #f3C 
STA PACTL 
LDA #128 
STA jtfPNDX 
LDA #0 
STA BPTHCT 
JMP MAIN10 


enable joystick portA 




>5 £) 








iMooreBusiness Forms, inc. sv 
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4098 

4C88 

4C8A 


4CSD 


4091 

4095 

4095 

4097 


: 4099 
.4C9JB 
4C9B 
4C9D . 
_4C9E . 
40 AO 


4CA1 

,4CA3 

4CA5 


_4CAJB_ 

4CA8 


4CAA»: 
4CAD ’ 
4 OAF 


4 CB2 

4CB5 

4CB8 


4CB8. 


jA970 

8D07D4 


AOOO 
A205 
A9-00 
.8504 
A975 _ 
85D5 


A900 

91D 4 . 
08 . 
DOFB 
CA 


F005 

E6D5 

4C9B4C 


A93JL_ 


SD6F02, 


4000 

4002 

4005 


.4006 

4bC6 


4008 

4CCA 

4CCC 


4CCE 

,4CDC> 

40D2 

4CD4 


9D08D0 


8D09D0 

8D0AD0 

8D0BD0 


A93E 

9D2F02 

Af05 

8D1DD0 

60 


A96C 


85D 4 
A 90 2 
85D5 


A9B6 

85D6 

A945 

85D7 



4CD6 

A900 


4CD8 

85D8 


4CDA 

A97S 


4CD.C 

85D9 


4CDE 

AOOO 

4 CEO 


4CE0 

BIDS 


4CE2 

91D6 


4CE4 

C9 


4CE5 

cooo 


4CE7 

DOF 7 


4CE9 

E6D9 


4CEB 

E6D7 


4CED 

C6D5 


4CEF 

1OEF 


_ 4400 
_4420_ 
4440 


4460 
4480 
4500 
4520 
- 454.0 
4560 


4580 

46d>b 

4620 

4640 

4660 

4680 


4700 

4:720 

4740 


4760 

4780. 


4800 

■>.»>: v.*-*.--. iff.. 

,4820 

48^0 


4860 

4880 

4900 


4920 

4940 


.IJEtlgM. _ 

_LDA # >PMEM ; init PMB ASE __ 

STA PMBASE _ 


LDY #0 ; clear PMEM 

LDX #5 ; 5*256 bytes 

__ LDA # <4PMEM+76 8u : se t pointer to PMEM active are a 

STA R+ 0__ .. _ 

_I LDA # >4PMEM+768u_ . _ 

STA R+l _ 


, LDA #0 


IPMEib 

STA < R+Q ? 

INY _ 

BNE IPME10 
* DEX 


BEQ IPME20 
INC R+l 
JMP IPME10 


JPME20 

LDA #$31 


IPME10 


4980 

5000 

5020 


, 3040 
5060 
%08O 


5100 
5120 
~ 5140 


5160 

.'5180 

5200 

5220 

524 0 

5260 

5280, 

5300' 

5520 

5540 

5360 

5580 

5400. 

5420 

5440 

5460 

5480 

5500 

5520 


STA GPP: I OR 
LDA #0 
STA SI ZERO 


STA SI ZEP1- 
STA SIZEP 2 
STA SIZEP3 


LDA #$3E 
STA SDMCTL 

LDA #3 _ 

STA GRACTL 


IPFDATA 

LDA # <PFLEN 


STA R+0_ 

LDA # >PFLEN 
STA R+l 


LDA # < PFDATA 

STA R+2 

LDA # >PFDATA 

STA R+3 

LDA # <IPF 5 

_ STA R+ 4_ 

LDA # >IPF 
STA R+5 
LDY #0 


enable 3rd col. 
r 


1 >: size for all 


combo, missiles as 


% % 


# bytes to write 


set dest. 


set_ source ptr 


I F'FDIO 
LDA 


(R+4) , Y 
(R r +2) , Y 


INY 

CF'Y #0 
BNE IPF D10 
INC R+5 
INC R+3 
DEC R+l 
BF'L I F'FDIO 











4CE9 E6D9 
4CEB E6D7 
4CED JJ6D5_ 
4CEF10EF 


5460 
5480 
55Q Q. 
5520 


INC R+5 
INC R+3 
. _JD.EC _R+JL _ I 
BF'L IPFD10 




-V._ 


/• _ 
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# 


# 

m 


# 


i 


# 

# 

# 

♦ 

# 

# 

a 

# 


D2 5 LJ. M65 


4CF1 


4 CF1 B 1D8 
4CF5 91D6 


4CF5 C8 


4CF6 C4D4 
. 4CF8 D0F7 
4CFA 


4CFA 60 


OD-'+u 

5560 

5 580 

5600 

5620 

.5640 

5 660 

5680 

5700 


IPFD20 

LDA <R+4>,Y 
STA (R+2 ) , Y_ 
I NY 

CRY R+0 
BNE .IPFD20. 
IPFD30 
RTS 


5720 

5740 

5760 


i _ _ 5 . 


4CFB 


5780 

I VBI 


4CFJB. 

AD0ED4 

5800 

LDA 

NMIEN 

_4CFE 

293F 

5820 

AND 

#$3F 

4DOO 

8D0ED4 

5840 

STA 

NMIEN 

4 DO 3 

A9AA 

5860 

LDA 

# <DLI1 

4 DO 5 

8D0002 

5880 

STA 

$0200 

4D08 

A953 

5900 

LDA 

# >DLI1 

_4JD0A 

8DO102. 

5920 

STA 

$0201 

4D0D 

A990 

5940 

LDA 

# <VBINT 

1 4D0F 

8D2202 

5960 

STA 

VVBLKI 

.4 D12 

A94D 

5980 

Ida 

# >VBINT 

. iiD14 

8D2302 

6000 

STA 

VVBLKI+1 

4D17 

AD0ED4 _ 

. 6020 

LDA 

.NMIEN 

_.4D1A 

0940 

6040 

ORA 

#$40 .. 

4D1C 

8D0ED4 

6060 

STA 

JMMIEN. _ . 

| 4D1F 

60 

6080 

RTS 



disable DLI, VBI 




6100 

6120 


6140 

6160 

6180 


J__ 


4D.20 


6200 

6220 

6240 


MAIN10 
;; LDA #0 


defeat attract 


>gQ 202669 
4D23 20975C 


4D26 204170 


.6260 

6280 

6300 






SCROLL. •ettAi 
JSR PMOVE 
JSR FLG5CR 


43 

4D29 205863 

6320 

JSR MOVE 

44 

.4.D2C A900 

6330 

ld4 #0 

45 

4D2E 8DD865 

6 -O -j 

STA TF'NDX 

46 

4D31 20A564 

6340 

JSR TINIT 

47 

4D34 20076F 

6360 

JSR FL.GHIT 

48 

4D37 205E50 

6380 

JSR ENDRND 


type to init 


6400 

642,0 

6440 


; Check ftir trucks hitting player 


4D3A ADE05A 
_4D3D _1024 
4D3F A201 


4460 

6480 

6490 


LDA. JMF'NDX 5 
BPL MAIN15 
LDX #QBJMAX-1 


only do thi s _if _not_ jumpi ng 


4D41 20D965 
4D44 90J.D 
4D46 A 9FF 


4D48 9DEC62 
< ^^4fr4ET 204B64 
_4D4E 2Q5C66 


6500 

6520 

6_540 

6560 

6580 

6600 


JSR COLISN 
BCC MAIN15 
LDA #-l _ 


a cancel truck 

STA TYPE, X 


JSR seRAse 
JSR VWDIE 


6?' 


erase truck 
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4D54- AD9642 
4D57 C906_ . 
4D59 9005 
4D5B A905 
4D5D 8D.9642 
APOD .*,! , . .. 
4D60 205054 



4D63 

4D63 

4D66 

4D68 

4 D 6 A 

4D6C 

4D6F 

4D72 

AD72 

4t)7 5 

4D77 

4D79 

4D7B 


ADiFDO 

2902 

D0O8 

A 90Q_ 

SD0C40 

4CSD4D 

ADiFDO 

2901 

D0.08 

A9FF 

8D0C40 

4C8D4D 


4D 84 2904 _ 

4 DS6 D005 
4D88 A901 
1^4 D8 A 81)0040 

*' ‘•vk 

% " % 

> 4 DS D 

4D8D 4C 204D 


3 4090 - i 

■j* .•& •;<?- 

^ m 

4P90 A2 1.F_ 

4D92 

4D92 B5 D4 
4D94 9D164 0. 
1 4D97,,CA 
4D£^^0F8 


4D9A 

4D9C 

4D9F 

4DA1 

4DA4 

4DA6 

4DA9~ 

4 DAB 


A90A 
,8£>17DQ 
A910 1 
8D18P0 

A9AA_ 

8 00002 

A955 

8DQ102 


4DAE ' Ab$002 
4DB1 8D02D4 
4DB4 AD3102 
4DBZ., 8 D 03114 


6640 
66 6 V 
8880 
8700 
8720 
8740 I 
8780 
6780 
6300 
6820 
6840 
6 860 
16880 
6900 
6920 
6940 
6960 
688 0 
.7000 
17020. 

~ 7040 
7060 
7080 

7i do 


7120 . 
7140 
7160 
2180 
7200 
722 0 
.7240 
__7260 
~ 7280 


<7300 

'*732,0 

,7340 

. _7360 
_738.0. 
7400 
7420 
7440 
7460 
7480 
7500 
7520 
7540 
7560 

_ 7580 

7600 

7620 

76 40. 

7660 

7680 

770 0 

7720 

7740 

.7260 


LDA CARLFT 
CMP #6. 

F-iCC MAI NOB 
LDA #5 
STA CARLFT 

4:>a_ 

JSR ECAR 


show extra c ars 


MAIN15 

LDA 

AND 

_BNE 

. LDA 

STA 

_JMP_ 

MAIN20 

LDA 

_AND. 

BNE 
LDA 
STA 
^fHP 

MAIN30 
LDA 


AND 

BNE 

'_ LDA 

STA 


CONSOL 

#2 

MAINS 0 

#0 _ 

SCRSPD 

MAIN5 0 

CONSOL 

m _ 

MAJ.N30 

#-l 

SCRSPD 

MAIN50 

CONSOL 


#4 

MAIN50 

#1 

SCRSPD 


% I!'* & 

g * 


MAIN50 . ___ 

JMP MAIN10 


VBINT 

LDX #31 _______-_ 

VBINpS. __ _ _ 

L.DA R+0, X ; save scratchpad reg 

STA S A VBUF a X ~ __ . 

DEX 

BPL VBINOS 


Set colors tor header 


LDA #$0A _5__1 urn__ __ 

STA f.D017 

LDA #*fo 5 bye 

STA *DOi a __ ________ -___— 

L DA # <D LIJ_- “ _set DLI vect. ±£HJS, 

STA *0200__- 

I DA # >DL 11 _____—4 

STA $026t 


LDA SPLSTL 
STA *D402 
LDA SDLSTH 
. 04,03 


shadow reg i_ster§>. 


M65 












'ft 


4DB1 8D02D4 
4DB4 AD3102 
4DB7 8D03D4 
4DBA AD2F02 


7720 

7740- 

7760 

7780 


STA $D402 
L.DA SDLBTH 
-STA _$D403_ . 
LDA SDMCTL 
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4DBD 

4DC0 

4DC3 


8D00D4 

ADF402 

8D09D4 


7800 

7820 

7840 


S TA DMACTL 
LDAJZHBAS 
STA CHBASE 


4DC6 

4DCS 

4DCB 


A900 

8D1AD0 

ADCQ02 


7860 

7880 

7900 


LDA #0 
STA $D01A 
L0A F'COLRO 


4DCE 

-4DDi 

4DD4 


ADC102 

8D13DQ. 

ADC202 


7920 

7940 

7960 


LDA PC0LR1 


STA C0LPM1 


LDA PCOLRS 


* 

* 

* 

♦ 




M 


4DD7 8D14DO 
4DDA ADC302 
4D DD 8 D15D0 
4DE0 AD 6F02 
4DE3 8 D1B D0 
4DE6 AD3202 


7980 

8000 

8020 


STA C0LPM2 
LDA ,,E*C0LR3 
STA C0LPM3 


8040 

J3060 

8080 


LDA GPRIOR 


STA PRIOR 


4DE9 8D0FD2 


4DECT AC3C70 
4DEF~ 8C07D0 


8100 

8120 

8140 

8160 

8180 

8200 


LDA SSK CTL 
STA SKCTL 


S etOp heade r P/M flags 


LDY HFPOS 
STY HP0SM3 


HPOS 


4DF2 C8 
40F3 C8 
4DF4 8C06P0 


8220 

8240 

8260 


2 NY 
2 NY 

8TY HP0SM2 


4DF7. C8_ 
4DF8 C8 
4DF9 8C05D0 


8280 


.S3_Q0_ 


8320 


I NY 
INY 
STY 


HPQSN1 


4DFC C8 
4DFD C8 
4DFE 3C04D0 


8340 

8365' 

8380 


4E01 AD3D 70 
.4804 8D00D0 
4E07 AD3E70 


8400 

8420 

8440 


INY 

INY 

SJY 

LDA 

STA 

LDA 


hposmo_. 

HFPOS+1 

HF'OSPO 

HFPOS+2 


# 

♦ 

# 

# 


4E0A 8001DO 
4E0D AD3F70 
4E .1.0 8P02D0 


8460 

8480 

8300 


LDA 

STA 


HP0SP1 

HFPDS+: 

HP0SE2 


4E13 AD4070 


8520 


4E16 8D03D0 


8540 
8560 ; 


.LDA. 
STA 


HFPOS+4. 

HP0SP3 


4E19 ADAE6F 8580 

4E1C 8D19D0 8600 

4E 1 F ADAF6F _ 8620 

4 E2 2 8D1 2 D0_ 3640 

. „ 8660. 
8680 


LDA 

STA 

LDA 


FCDLOR ; colors 

*D019 

FCQLOR+1 


4E25 ADB06F 
5D0 


4E28 8Di: 


STA 

LDA 

STA 


COLPMO 

FC0L0R+2 

C0LPN1 


M 


4E2B A0B16F 
4E2E 8D14D0 
4E31 ADB26F 


4E34 8D15D0 


4E37 


8700 

8720 

8 740 _ 

8760 
8780 ; 
8800 VBI 


LDA 

STA 

LDA 

STA 


FC0L0R+3 

C0LPM2 

FCGLDR+4 

C0LPM3 


N20 


9 


4E37 AD0040 
4E3A F027 
4ESC CEO140 


8820 

8840 

8860 


LDA 

BEQ 

PEC 


TIMRON 
VBIN50 
TICS » 


timer on? 
no - branch 


4E3F D021 
4E41 A93C 
.4E43. 8D0140 


8880 

8900 

8920 


BNE 

LDA 


3TA 


#60 

TIPS 















8940 
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4 


1 " 

2 

3 

4 7 V'J? 



jp* * 

% 

* ^ * %. * 

■** 

4 

4E46 

F 8 

8960 

8980 

9000 

SED 


5 

6 

4E47 

4E4A 

AD5450 

18 

LDA TIMER 

CLC 

7 

v , 4E4B 

6901 

9010 

ADC #1 


s 

4E4D 

SD5450 

9012 

STA TIMER 


9 

K\ 4E50 

G960 ....... 

9020 

CMP #$60 .. ... 


10 

4E52 

900E 

9040 

BCC VBIN55 

__ 

I 

..4E54 

BSRBIBnH 


LDA #0 _ . .... 

_ 

E 


8D5450 


STA TIMER 


13 

- 4E59 

AD5550 4 / 

9100 

LDA TIMER+l 


14 

4E5C 

.IS ' 

9102 

Mo & g? ’.* 


15 

* ' ..4ESD ' 


9110 

ADC #1 


<6 

4E5F 

8D5550 

9120 

STA TIMER+i . . . 


17 

4E62 


9122 

VBIN55 __ . . „ . _ 

_ 

:b 

4E62 

D 8 

9140 

CLD 


9 

r : ..4E63 

w 

9150 

VB.IN50 


2 

'•' 5 " 

- 

4 * »' 

9160 

?• . 


21 

jS$* 

* 

9180 

:» '■’ . . . . 


22 



9200 

; S.Quncjs _ _ __ 


23 



9220 

; . 

_ 

2-1 

4E63 

AD0740 

9240 

LDA SNDCTL : sound enabled? 


25 

vV ' x 4E66 

F02C 

>9260 

BEQ OB IN 32 ? no “ branch 


26 

ST ' 4E6B 

207068 

9280S 

OSR SFX ; else do sounds 


27 

« 

»* 4t **&$* :„ : 


9281 

w 


28 



9282 

BONUS PAGE . .. . 


29 



9283 

n 

_ 

3C 

4E6B 

AD5C50 

9300 

LDA BPAGEF : play-field or bonus 

pa< 

3! 

j. ,J. 4E6E 

F024 

9320 

,;B.EQ. VBIN32 3 play-field - branch 


32 

i* ‘ • 4E70 

A9F2 

9340 

L.DA # <BDLI 1 ; set dli vector 


33 

'? 4F72 

8 D 0002 

< 9360 

STA $0200 


34 

4E75 

A952 __ 

9380 

_LDA # >BDLI 1.._ .. .... 

. 

35 

4E77 

8D0102 

9400 

STA $0201 . . 


36 

4E7A 

A 9 00 

9420 

LDA #0 


37 

i 4E7C 

8 DOODO =/*** 

9.4&1 

STA HPOSPO 


38 

4E7F 

3D01D0 r>«, 

.49422 

Sf A HE'OSPl 


35 

m "’’f V 43-82 

RD02D0* 

9423 

STA,HP0SP2 


40 

. 4E85 

8D03D0 


STA HP0SP3 


41 

4E88 

8 DO4DO 

9425 

STA HPOSMO 


42 

4E8B 

8D05D0 

9426 

STA HP0SM1 


43 

4E8E 

8D06D0 

9427 

STA HPQSM2 


a 

7* 4E91 

SD07EJ0 

9428 

STA HPGSM3 


45 



9440. 

» . 


46 



9460 

; Restore scratchpad reqs 


47 



9480 

« _ _ __ 


4£ 

4E94 


9500 

VBIN32 


45 


A21F “ 

9520 

LDX #Si * 


sc 

WMm* 

* 

9540> 

VBIN40 


51 


^BD1640 

9565 

LDA SAVBUF„X 

x 

52 

4E99 

95D4 

9580 

STA R+0,X 


5C 

4E9B 

CA 

9600 

DEX 


52 

4E9C 

T0F8 

9620 

BPL VBIN40 


55 


% '' 

9640 

n 

!» 


M 

£ * 4E9E> 

68 . *“ . 

9660 

PLA 


k 

’’ 4E9F 

AS r '"' . 

9f»80 

TAY 


4EA0 

68 

9700 

PLA 


► 

4EA1 

AA 

9720 

TAX 



4EA2 

68 

9740 

PLA 



4EA3 

40 

9760 

RTI 







9 




m 



















4EA0689700PLA 
4EA1 AA 9720 TAX 

4EA2 iL_>_PLA^ 

4E A3 40 _9760_ RTI 
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9780 ; 

9800 ; Initjj. the screen memory with 120 lines 

_ _9 820 ; po inted to by SCROL ptrs _ _ 

9840 ; 

4EA4 9860 I SMEM 


. 

.. L * _ ^ 

_ 9880 

LDA NMIEN 



_9900 ; 

AND #$BF ; disable VBI 



9920 ; 

STA NMIEN 

4EA4 

AD0D40 

9940 

LDA 

SCROLF 

4EA7 

48 

9960 

PHA 


4EA8 

A5CA 

9980 

LDA 

SCROLC 

4EAA 

48 

016060 

' ; F'HA 


4LEAB 

A5CB 

010020 

LDA 

SCROLC+1 

4EAD 

43 

010040 

PHA 


4EAE 

A970 

010060 

LDA 

#112 ; do 112 F'F lines 

4ES0 

85DD 

010080 

STA 

R+9 

4EB2 

AE0A40 

010100 

LDX 

DSCROL ; get pointer to SMEM 

4EB5 


010120 

iSMElO 

4EB5 

BD3E40 

010140 

LDA 

DSPTBL,X ; .set <0,1) to SMEM. beqii 

4EB8 

85D4 

010160 

STA 

R+0 

4EBA 

BD1D41 

010180 

LDA 

DSF'TBH, X 

4EBD< 

S3D5 

010200 

STA 

R+l 

4EBF 

205B6A 

0 l 622 d 

JSR 

F'FLINE ; write a PF line 



010240 



4 EC 2 

C 6 DD 

010260 

DEC 

R+9 

4EC4 

F032 

010280 

BEQ 

ISME30 



010-300 

? 


4ECS 

£8 

010326 

I NX 

5 update screen pointer 

4EC7 

EE0D40 

010340 

INC 

SCROLF 

4ECA 

AD0D40 

010360' 

LDA 

SCROLF 

. 4ECJD. 

C910 

010380 

CMP 

#16 

4ECF 

D0E4 

010400 

BNE 

ISME10 

4ED1 

A900 

010420 

LDA 

#0 

4ED3 

SD0D40 

010440 

STA 

SCROLF 

4ED& 

A5CA 

010460 

LDA 

SCROLC 

4ED8 

18 

010480 

CLC 


4ED9 

690A 

010500 

ADC 

#10 

4EDB 

85CA 

010520 

STA 

SCROLC 

4EDD 

A3CB 

010540 

LDA 

SCROLC+1 

4EDF 

6900 

010560 

ADC 

#0 

4EE1 

85CB 

010580 

STA 

SCROLC+1 

4EE3 

C946 

010600 

CMP 

# >PFDATA+PFLEN 

4EE5 

DOCE 

010620 

BNE 

ISME10 

4EE7 

A5CA 

010640 

LDA 

SCROLC 

4EE9 

C922 

010660 

CMP 

# <PFDATA+PFLEN 

4EEB 

D0C8 

010680 

BNE 

ISME10 

4EED 

A9B6 

010700 

LDA 

# XPFDATA ; reset 

4EEF 

85CA 

010720 

STA 

SCROLC 

4EF1 

A943 

010740 

LDA 

# >PFDATA 

4EF3 

ascs 

010760 

STA 

SCROLC+1 

4EF5 

4CB54E 

010780 

JMP 

ISME10 

4EF8 


010800 

ISME30 

4EF8 

68 

010820 

PLA 


4EF9 

85GB 

010840 

STA 

SCROLC+1 

4EFB 

68 

010860 

PLA 


4EFC 

S5CA 

010880 

STA 

SCROLC 


-4EFE 68 _010900 


Stmt 

















4F.FF 8D0D40 


010920 


ST ft 5CRQLF 
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' V ' V 4‘'4 

V 1? iLv ,.*y K ' :« 

# -v * ' V 

jP *" * *> * 

s? $ : V- 

S : V & 

& 9 0 , i 

•* *, % 

0 10940 : 


0 10960 ; 

1 LDA NMIEN 

010980 : 

s ORA #$40 


71 
8 

9 

4F02 60 

011000 
011020 
011040 

; STA NMIEN 

RTS 



+ 









10 

i 1 

12 

' 4F03 

011060 

_011080 

011100 

5 Init... the DLIST 

a 

IDLIST 

— 

- - — 

-- 

— 

— -- -* 

- -- - 

— 

- 





4F03 

A970 

01li20 

LDA 

#*70. 




4F05 

8DAA42 

011140 

StA 

DLIST 




4f<5b 

8DAB42 

011160 

STA 

DLIST+1 




4F0B 

8DAC42 

011180 

STA 

DLIST+2 




4F0E 

A942 

011200 

LDA 

#$42 5 1 

line 

mode 

2+1oad 

4F10 

8DAD42 

011220 

STA 

DLIST+3 




4F13 

A9B6 

011240 

LDA 

# <hHem 




4F15 

SDAE42 

011260 

STA 

DLIST+4 




4F18 

A947 

011280 

LDA 

$ >HMEM 




4F1A 

8DAF42 

011300 

STA. 

DLIST+5 




4F1D 

A982 

011320 

LDA 

#$82 ; 1 

1 i ne 

mode 

2 + DLI 

4F1F 

8DB042 

011340 

STA 

DLIST+6 





4F29 

4F2JB 

4F2B 


A200 


9DB242 


011420 
Oil440 
011460 


JLDX #0 
I DLI 10. _ 

’ ~STA DLIST+g, 


4F2E 

4F2F 

4P31 

E8« 

EQOF 

DOFS 

011480 

011500 
011520 

I NX 
CPX 
BNE 

#15 

IDLI10 

4F33 

A9SE 

011540 

LDA 

#$8E 

4F35 

8DC142 

011560 

STA 

DLIST+ 



011580 ; 



4F38 

A98D 

011&00 

LDA 

#$8D 

4F3A 

8DC242 

011620 

STA 

DL1ST+ 



01.1640. : 



4F3D 

A200 

011660 

L.D X 

#0 

4F3F 

A96D 

011680 

LDA 

#$6D 


1 line mode E + DLI <top flag DL1) 


; 1 line mode M + DLI (blanf line to 
separate header and playfield) 


4F41 

4F4l 


9DC342 


011700 

011720 


IDLI30 

STA DLIST+25 


4F44 

4F45 

4F46 

E8 

E8 

E8 

01.1740 
011760 
* 011780 

I NX 

INX 

I NX 

4F47 

EOFO 

011800 

CPX #240 

4F49 

D0F6 

011820 1 

BNE IDLI30 



oi 1840 t\ 



,X ; 80 
enable 


lines made D w/load, + vert 


b 

4F4E 

A 941 

" 011880 

Ida 

#$41 ; jump and waitjinstr. 

'54 

4F50 

8DB343 

Oil 9b0 

STA 

DLIST+265 

b 

4F53 

A9AA 

011 / 920 

LDA 

# <DLIST 

66 

4FS5 

8DB443, 

011940 

STA 

DLIST+266 

3 

4F5S 

A942 

011960 

LDA 

# >DLIST 


4F5A 

4F5D 

4F5F 

4F62 


8DB543 

A900 

.8D0A40 

8D0D40 


011980 
012000 
012020 , 
012040 


DLIST+267 

#0 5 

DSCROL _ ,jl 
SCRQLF_ 


reset pointer for DLIST scroll 
.to top of .SMEW _ — 




















4F5A BDB543 
4F5D A9C>0 
4F5F 8JQ0A4Q 
4F62 8D0D4Q 


011980 STA DLIST+267 ' 

012000 LDA #0 ; reset pointer -for DLIST scroll 

01 2020 '^i3TA DSCROL X to. top of SMEt) . __ _ ____ 

012040 STA S CRQLF _ _ 
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4F65 

A9B6 

012060 

LDA # <PFDATA 





4F67 

4F69 

85CA 

A943 

012080 

012100 

STA SCROLC 

LDA # >PFDATA 

--- 

— 

- — - 


4F6B 

85CB 

012120 

STA SCROLC+1 





4F6D 

207B4F 

012140 

JSR CHGDSP ; set DLIST pointers 





4F70 

A9AA 

012160 

LDA # <!DLIST : select DLIST 





4F72 

8D3002 

012180 

STA SDLSTL 





4F75 

A942 

012200 

LDA # >DLIST 





4F77 

8D3102 

012220 

STA SDLSTH 






4F7A 



012240 
012260 
012280 
012300 
012320 


S Write the displ ay 1 i_st_ poi nter 
; using the value in DSCR0L to _ 

; determi ne trie -first line. 
CHGDSP 


4F7B 

AD0A40 

012360 

'LDA DSCROL 

; use to index first line 

4F7E 

18 

012330 

CLC 

; first line is +16 to leave room for 
"before" buffer 


4F7F 

6910 

012400 

ADC #16 


;2 

4F81 

AA 

012420 

TAX 


P 

4F82 

A000 

012440 

LDY #0 


2 

4FS4 

4F84 

4F87 

BD3840 

99C442 

012460 
012480 
012500" 

M0VD10 

* LDA DSPTBL,X 5 get low 
STA DLIST+26.V s write 

byte of pointer 
to DLIST 

£ 

( 

2 




4F8A_ 

4F8D 

4F90 


4F91 

4F92 

4F93 

4F94 

4F96. 

4F98 


BD1D 41 
99C542 
E8 


C8 

C8 

CS_ 

C0F0 

D0EC 

60 



4F99 

4F99 

4F9JB 

4F9D 

4F9F 

4FA1 

4FA3 

4FA5 

4FA5 

4FA7 


A270 

A93E 

85D6 

A940 

85D7 

A000 

A970 

85D4 


UZfiVJMiVWAZ 


012520 
612540 
012560 


012580 
012600 
JT12620 
012640 
012660 
012680 


0 

o: 

0 ; 


012760 


012780 


012800 


012820 

012840 

012860 


012880 

012900 

012920 


012940 
012960 
012980 
013000 
013020 
013040 
013060 
013080 
013100 
013120 
013140 
, 013160 


LDA D SPTBH, X.jl 
STA DLIST+27,Y 
INX 


INY S r 

I NY 

INY ___ 

_CPY #240 5 £ 

BNE M0YD10 


L .hi 9h by te 

f 

next DSPTBL value 


next DLIST pointer 


80 lines 


handle the addresses of the 80 displayed mode 
lines, 16 for "before” and 16 for "after" buffers, 

111 to extend the table so tha t eve n__ 

when indexing starting at _1 ine #111 

there wil 1 be no need to wraparound the .index 


I TABLES' 

LDX #11 2 _ 5 do first 80 pointer s __ 

LDA # <DSPTBL ; set pointer to DSPTBL 
STA R+2 ** 

LDA # >DSPTE<L ’ _ 

STA R+3 

L.DY #0 ; index to DSPTBL 

ITAB05 ___ 

LDA # <SMEM ; set initial pointer value 
STA R+0 



IMS 





















4FAB 85D* 


015180 


STA. R+l 


PAGE 


UPN DOWN — -for Atari systems 


D2:U„M65 



4FAD _ 
4FAD A5D5 
4FAF 991D41 
4FB2 A5D4 
4FB4 993E40 

4FB7 .08_ 

4FB 8 CA 
4FB9 F01D 


4FBB 18 
4FBC 6928 
4FBE 8504 
4FC0 90EB 

4FC2 E 6D5_ 

4FC4 4CAD4F 


4FC7 

4FC7 A5D5 _ 

4FC9 29F 0_ 

4FCB C5D8 
4FCD FODE 
4FCF 85D5 
4FD1 A900 
&5D4 
4FD5 4CAD4F 



4FD8 

4FD8 

4FDA_ 

4FDC 

4FDE 

4FDF 

4FE1 

4FE5 

4FE5 

4FE7 

4FE7 

4FE9 


A5P6 

C93E_ 

DOOE 

18 

8970 
85D6 
9002 ... 
E6D7 _ 

A26F 

4CA54F 


4FEC _ 

4FEC A900 
4FEE 85D4 
4FF0 A990 
4FF2 85D5 
4FF4 AOOO 
t 4FF8 

4FF6 A5D5 


013200 
015220 
015240 
013280 
013280 
>0 15300 
01 55 20 
. .013340. 
015580 
013380 
013400 
013420 
013440 
013480 
013480 
013500 
013520 
013540 
013580 
. 01 358 0 
015600 
013620 
013640 
015660 
0 13680 
013700, 
015720 
013740 
013760 
013780 
.013800 
015820 
015840 
013860 
0X3880 
013900 
015920 . 
013940 
015960 
013980 
014000 
0140 20 
014040 
014060 
014080 
014100 
014120 
014140 
014160 
0,14180 
. 014200 
014220 
014240 
014260 
014280 
014300 
0143,20. : 
014340 


I TAB1 0 

LDA R+l ? store a pointer 

..STA DSPTBH .Y ; hi oh bvte~ ' 

LDA R+0 

STA DSPTBL,Y ; low byte 

_INY_ 

DEX._ ‘ 

BEQ ITAB20 


5 save high nybble -for 4k boundary check 


; LDA R+l 5 save hiqh nybble 

5 AMD #$F,0 
JL STA R+4 
X JLDA. R+0 
... QLC . ; update pointer value 

ADC #4 0 _; 40 bytes/ m ode line 

STA R+0 
BCC ITABIO 

_ INC R+l _. 

_JMP ITABIO. j. next pointer 

5 ..._ 

; Check -for 4k boundary crossing 

« 

ITAB15 

LdA R+l _]____ 

_ AND_#*F0 . 

_ CMP R+4 _ . 

BEQ ITAB 1 0 ; ok - branch _ 

STA R+l ; else -force to 4k 

LDA #$00 

STA R+0 _ 

JMP ITABIO_ _ 

5 __„ . _ 

do last 111 pointer values 


ITAB20 

. LDA R+2 _ ; is this the first time here? 

CMP # <DSPTBL ~ ’ _____ 

BNE ITAB30 ; no --.already did thi s, branch 

CLC _ i move pointer to DSPTBL 

ADC #112 ~ ’ 



STA R+2 

_ICC ITAB 28 

. INC R+3 
ITAB28 

. LPX #111 _ 

JMP ITAB05 


1 11 more values 


16 

i7 4JK 


28 

P #• 



1 init “CHARH . CHA R L. in d ex to ch ar __ 

; addresses. 

» 

.5 

ITAB50__^ 

LDA # <CHARS ; init -firbt addr to CHARS start 

STA R+0 

LDA # >C HARS 

STA R+l * " 

LDY #0 
ITAB4Q 

LDA R+l_; write a pointer — 


IS? 




Moore Business Forms, Inc sv 14I2RH 







4 

4 

4 


FF2 85D5 014280 STA R+l 

FF4, A000 014300 LDY #0 

EE 6 __ _.O14320_ IJAB40 __ 

4FF6 A5D5 _ 0 14340 LD A R+-1 _: write a pointe r 




m 
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4FF8 

990C42 

014360 

STA 

CHARH^Y 

4FFB 

A5D4 

014380 

LDA 

R+0 

4FFD 

994C42 

014400 

STA 

CHARL„Y 



014420 

■ 

Jl 


5000 

C 8 

014440 

INY 



C040 

014460 

CPY 

#64 

.5003 

FOOC 

0144.80 

BEQ 

ITAB50 



014500 

H_ 


5005 

18 

014520 



5006 

6940 

014540 

ADC 

#64 

5008 

85D4 

014560 

ETA 

R+0 

500A 

90EA 

014580 

BCG' 

ITAB40 

50 OC 

E6D5 

014600 

INC 

R+l 

500E 

4CF64F 

014620 

JMP 

ITAB40 

5011 


014640 

ITAB50 


do for _# ch ars in CHARS 


014660 

014680 

014700 


init mult. 
scrol 1 add 


by 4 table -for fine 
in calc. 


5011 
5013 


A93C 

A00F 


014720. 

014740 


014760 


.LDA #60 
LDY #15 


5015 

5016 
5016 


38 


014780 BEG 
01480:0 I.fAB60 


set for subt, 


99FC41 


014820 


STA M4TBL.Y 


_501S_E904 
50IB 88 . 

501C 1OF 8 


014840. 

014860 

014880 


SB C.#4 
JOEY 

ITAB60 


BPL 


014900 
014920 
014940 


A nit $3 table 


501E A9F0 
5020 A24F 
5022 38 


014960 
. 014980 
015000 


J2DA #80*3 
_LDX #79 
SEC 


£30 entries 


3023 

5023 E903 
5 025 


015020 
015040 
015060 


ITAB70 
-SBC #3 
STA M3TBL.X 


5028 CA 

5029 1 OF £3 


015080 
015100 . 
015120 


DE X 

BPL 


ITAB70 


S02B 60 


RTS 


502C „ 

502C A900 


015140 
015160 ; 
015180 ; 
015200 5 
015220.IVOR 
015240 


INIT THE VARIABLES 


502E 8DE471 
5031 SD5C50 


015260 
01§270 
015280 


LDA #0 _ 

STA FTOPDL-1 
S'rA BPAGEF 


5034 A950 
5036 8D066F 
5059 A900 


503B 8D046F 


505 E A201 


5040 

5040 A9FF 
5042 9D4665 


01 550 0 
015320 
015340 
015360 
015380 
015400 
015420 
015440 
X) 15460 


.LDA #FDLY 
STA FDLYCT 
LDA #0 


STA FTOGL 


init f 1 aq del ay counter 
no fla g toggle _ 


LDX #0 BJI-1AX — 1 
I VAR 10 
LDA #$F r F 

_STA OVRLAY.X_ 
























=i045 9DEC62 


015480 


ST ft TYPE.X 
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> 


504A 
504D 


9D4F63 

9D2B65 


5050 

5051 


CA; 

ICED 


5053 60 


015500 LDA #0 

015520 STA DRAWN, X 

0 15540 STA PATH. X 

015560 DEX 

015580 BPL IVAR10 

015600 ; _ 

01 5620 _ RTS . 

0156 40 ; 

015660 i 

015680 INCLUDE #D2 s BPAGE.M65 
1000 .PAGE "BPAGE.M65" 



Moore Business 
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BPAGE.M65 


UPN DOWN 


•for Atari systems 


D2: BF'AGE. M65 



5054 

5055 

5056 

5057 

5058 

5059 


1020 
1040 
1060 
1080 
1100 
1120 
1140 
1160 
1180 


; BONUS PAGE ROUTINES 

TIMER *=*+i 
INCTR #= * + l 

FLASH *= *+1__ 

FL SHCT * = # + l 

C MSGCT * = #+l _ 

CFADE * = *+l 


50SA 

1200 

FADECT 

*= 

*+l 

" 1 

505B 

1220 

CMSGON. 

*= 

*+l 


505C 

1240 

BF'AGEF 

!« = 

*+l 




=0064 

1260 

CMSGDY = 1 


=00C8 

1280 

FLSDLY = 2 


=0014 

1300 

INCDLY = 2 



=0001 


505D 


505E 


_ 5064_ 

5064 A900 


5066 8D0040 
5069 20BC66 


506C _ 

506C A200 _ 

506E A005 


5070 

5070 CA 

5071 DOFD 


5073 88 


5074 DOFA 


5076 

5079 

507B 


5 07D 

5 07F 

5080 

5083 

5085 

5088 


AD0AD2 

29b# 

C90A 


JOED 

AA 

BDAE6F 

4901 

9DAE6F 

208571 


508B ADEE68 
508E 0DE668' 


5091 D0D9 

5095 209950 

5096 4C004C 


1320 

1340 

1560 

1380 

1400 

1420 



CINQ « 1 

CON**= #+l 


; inc on CONGRAT’s rainbow, colors 


JJ500 

1520 

1540 


1620 

JL640 

1660 


1680 

T700. 

1720 


4 

6 

7 


0 

0 

0 


1840 

1860 

1880 

1900 

1920 

1940 


. 1960 
1980 
2000 


2020 

2040 

2060 

2080 

2100 

2120 


L CHEC K FOR END OF ROUND __ 
ENDRND~ 


LD.A FLGCNT ; any -flags left? 
Jsm ENDR10 


stan timer 


END R10 

LDA #0 


STA TIMRON 


jsr 


ENDR 20 

LDX 

LDY 


ENDR22 

DEX' 

BNE 


DEY 


BNE 


ALLFLGS 


la? tune 


endR- 


ENDR2 


5 delay 


RANDOM 5 get flag # 
#$0F 
#10 


ENDR20__ 

FCQLQR,X ; _f1 ip header flac 
#1 

FQOLOR j, X 
CHGFLG 


VPTR1+1 ; tune finished? 
VOICE1+1 


ENDR20 ; no — branch 

BF'AGE ; do bonus page _ 

START 




























2140 


PAGE 16 UPN DOWN - -for Atari systems 
BFAGE.M65 _ 


D2sBPAGE 



5099 _ 

50 99 208 B66 
5090 A928 
509&x. 

509£ CD0BD4 
50 ft1- 90 FB _ 

~50A 5 A901 
50A5 8D5C50 


50A8 A2QD 
50 A A 


50AA BDE251 
7 

1 


2160 BP AGE __ _ 

2ISO JSR BSQUND ; dp tune 

2200 LDA #40 __ _ _ 

2220 BPAG10 

2240 CMP VCOUNT ; sync to screen 

2260 . BOG BP AG 10 _______ 

2290 s. _ . __ 

2300 LDA #1 „ _ 

"2320 STA BPAGEF a flag bonus page for OBI 


$.340 ; 

2300 LDX #13 * ; overwrite UP’N DOWN title 

2380 BPAG22 


LDA TCHERA.,X_ 
STA HMEM+13,X 
LDA TCHERA+14,X 


50 B 9 
50BB 
50BB 
50BE 

... * V 


_50C2 
50C 4 
"0C6 


50C8 

50CA 

50CA 

50CD 


. 50CE. 


50D0 

5003 

50D4 


50 D 5 
50 D 6 
50D7 
50D9 
50DC 
50DC 
50DF 
50E1 
50E4 


5 


50EA 

50E B 

50EE 

5pFl 

50F3 


A200 

BDFE51 
9D0643 
la .. 


E08C ___ 

D0F5 

A900 


A24F 

9D9249 

CA 


IGF A _ 


AD5550 
4 A 
4A 


4A_ 

’ 4A_ 

F003 _ 
8DEF47 

AD5550 

290F 

8DF047 

AD5450 


4 A 

3DF 247 
AD5450 


290F 

8DE347 


2520 

2540 

2560 

2580 

§600 

2620 


2640 

2660 

2680 


2700 

2720 

2740 

2760 


.2780 

2800 


2 

4 

6 


2880 

2900 

2920 


LDX #0 

BPAG2Q _ 

LDA BF'DATj, X ; ini t bonus page 
STA HMEM+SO,X # 

1NX >__ 


CPX #140 * ___ _ 

BNE BPAG20 .. .. 

LDA #0 


LDX #79 
BPAG25 

_ST A f#lEM+220, X ; cle a r last 80 bytes 

DEX 


BF'L BFAG25 


2980 

2980 

3000 

3020 

3040 


0 

0 

0 


3120 

3140 

3160 


* LDA TIMER+1 

* ”lsr a 

LSR A 


___ .LSR A 
LSR A 

BEQ BP AG30 
STA HMEM+57 
BPAG30 

__LDA TI MER+1 

AND #$0F 
' STA HMEM+58 

LDA TIMER _ 

LSR A 
LSR A 
LSR A 


LSR A 

STA HMEM+60 
LDA TIMER 


AND #$pF 
STA HMEM+61 


get timer high byte 


JSR IBDLST 


Set index according to timer 

















* 


4 


« 


«- 


* 

* 


# 

* 

4 

# 


# 

4 

# 


50F6 20A452 


3240 

3260 

.3280 

3300 


m 


JSR IBDLST I \ 

Set index, according tQ^tifaer 
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tJF'N DOWN - -for Atari systems 


f 

2 

3 


■L' 




* 


4 

50F9 





#5 


]5 

50FB 

AD5550 




TIMER+1 


6 

1 50FE 

DOOF 




BPAGSO 


7 

5100 

A949 

3380 


LDA 

#$49 


8 

5102 

A204 

3400 


LDX 

#4 


9 

5104 


3420 

BPAG40 



10 



11ISEJ3I 


CMP 

TIMER 


11 

■|Hp£f§S3| 




BCC 

BPAG50 


12 


mSmBm 

3480 


SEC- 



13 

510A 

E910 

3500 


SBC 

mto 


14 

5 IOC 

CA 

3520 


DEX 



15 

5100 

DOFS 

3540 


MM® 

BPAG40 


16 



5560 





17 



3580 

5 

Set parameters for 

18 



3600 





19 

5.1 OF 


3620 

BPAGSO 



20 

51 OF 

A901 

3640 


L*DA 

#$01 

; add 

21 

5111 

85DA 

WkizMtm 


wmm 

R+6 


22 

. ..5113 

A900 

3680 


LDA 

#$00 


23 

5115 

85D9 

3700 


STA 

R+5 


24 

5117 

BD9E52 

3720 


LDA 

BINC,X 

; qet 

25 

5i 1A 

85DB 

3740 


STA 

R+7 


26 



3760 

• 

9 

v jfc 



27 

silt 

BDtASl 

3780 


\ LDA 

BMSGL^X 


28 

_51 IF 

S5DC 

3800 


STA 

R+8 


P Q 

.5121 

BDD051 

3820 


LDA 

BMSGH,X 


30 

5124 

85DD 

3840 


STA 

R+9 


31 

5126 

BDD651 

3860 


tDA 

BDATL,X 


32 

* 5129 

85DE 

38Q0 


STA 

R+10 


33 

512B 

.BDDC51__ 

3900 


LDA 

BDATH,X 



•T* 


D2:BPAGE.M65 


; add increments o-f 100 


il2E 85DF 


5130 A914 


5132 SD5550 


vi 1 O J 

5137 8P5750 


51 3A A901 _ 

513C 8D5650 


3920. 

3940 

39 60 

3980 

4000 

_ 4020 _ 

4040 

4060 

4080 


5T A R+l1 
LDA #INCDLV 


STA INCTR 
LDA #FLSDLY 
STA FLSHCT 


i-DA #1 
STA FLASH 


513F A964 
5141 8D5S50 
51 44 A900 
5.146 .8D5D50 
51 49 8D5B50 
514C i005 


4140 

4160 

4180 


4200 


4 220 

4240 


LDA #CMSGDY 
STA CMSGCT 

-LDA #0_ 

SJA CON 
STA. CMSGON 
CPX #5 


514E F010 
5150 A901 


5152 


8 D5B50 


4260 

4280 

4 500 

4320 


BEG BPAG60 
LDA #1 
STA CMSGON 


5155 A21J 
5157 


4340 

4560 


LDX #19 
BPAG54 


wr i t e CONGF: ATUL AT IONS 


U l Of- 

515D CA 


4380 

4400 

4420 


515E 10F7 


LDA CONGRA,X 
STA HMEM+260,X 
DEX _ 




4440 

4460 

4480 


BPL BFAG54 


BPAG6 


o 















4500 


Q 
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LJPM DOWN 


•for Atari systems 


D2s BPAGE.M65 



II 


5165 DOFD 


,5165 A5DB 
5167 FOOF 
2-CE555Q 
516C DOOA 

JS1AE.A214 

5170 8D5550 


5173 20BB5F 
5176 C6DB 
*5178 


5178 CE5 750 
517B D0 27 
517D A9C8 


517F 8D5750 
5182 AO 13?" 

. 518 4 AD5650 
5187 F00F__ 
51 89 A900 
518B 


518B 91DC 
5i8D ;sa 
518E 10FB 


5190 A90 0 
5192 8D5650 
5195 4CA451 


51781 

5198. BIDE 

519A 91D C_ 

519C 8 8 
519D 10F9 . 
519F A901 


452.0 BPAG61 

454CL_DEX. _ 

4560_BNEBPAG61 


4580 LDA R+7 

4800 BEQ BPAG7.0 


done 


branch 


51A1 


8D5650 


51 A4 C E5850 
5 1A7 D OOA 
51A9 A964 


51AB 8D5850 


51AE A901 
51BO SD5D50 


51.B3 
”5,1 B3 
51B 


51B9 


51BC 


51BF 


51C1 

51C3 

51C6 

51C9 


ADEE68 




0DF268 


0DF468 


D09F _ 


A900 

8D0FD2 

8D3202 

60 


46 40 

4660 

4680 


4700 

4720 

4740 


„ 4760 
4780 
4800 


4820 
4840 
__486,0. 
4880. 
4900 
4920 


,.4940 

4960 


500 0 

5020 

5040 


5.060 

5080 

5100 

J5120 

5140 

5160 


,5180 

5200 

-5220 

5240 


5300 

5320 

5340 

5350 


54Q0 

5420 



BNE BPAG70 


STA INCTR 


JSR ADDP1 
BBC R+-7 
BPAG70 


DE C F.LSHCT : 

_BNE BPAG92 ; 

LDA 4FLSDLY 


STA FLBHCT 
LDY #19 

__ LDA FLASH 

BEQ BPAG90 
_ . LDA. #0 . .. ; 

BPAG80 


STA (R+8),Y 
DEY 
P 


LDA #0 
STA FLASH 
JMP BPAG92 


BPAG90 

LDA <R+10),Y 

_ __STA_ JR+8) Y 

DEY 

_ BPL BPAG90 
LDA #1 


STA FLASH 

n 

? 

B PAG92 _ 

DEC CMSGCT . ; 
BNE BF'AIOO 
LDA #CMSGDY 


STA CMSGCT 
5; LDA CON 

j.; _EQR #1_ 

LDA #1 ; 

STA CON 

BPA100 

LDA VPTR1+1 ; 
ORA VOICE1+1 


□R A VPTR3+1 

_ _ORA_ VPTR4 + 1 

BNE BPAG60 ; 


LDA #0 ; 

STA SKCTL 
STA SSKCTL 


flash point bonjus mess_age?_ 
not time yet - branch 


erase message 


write mscj 



flash CONGRATS 


; always on 


end of tune? 


no - branch 


reinit sound 


5580 

5600 

56.20 
















JJ.L7 OV 


n I b 


JJOU 

5600 s 



3< 


W< 


4: 

Ai 


At 

a ; 


4< 

5( 


c*07D 

s» ’ 


su & u asag 



















604Q 


SBYTE '■ 60 AND OVER ZERO 


5576 00001610 



m 


PAGE 20 URN DOWN -- -for Atari systems 


BPAGE.M65 

•- \v r-: :t ■ ' ■ ' ■ “ ' 


4 

2 

3 

» 









4 



4 


527A 

00212E24 










5 


.J52ZE 

002F3625 










6 


5282 

32003A25 










7 


5286 

322FOOOO 









't 

8 


= 52BA 


6060 

.C0NGRA 







9 


,528A 

001D232F 

6080 


.SBYTE “ =CONGRATULATIQNS= " 


% 

10 


528E 

' , )C r 777m *1 

•»L C- -K- / v.> jC .c. X 









n 


5292 

34352C21 










12 



34292F2E 









% 

13 

14 


529A 

331DQOOO 

6iOQ 









15 




,, 6120 

: 







* 

16 


529E 


6140 

BINC 






17 


529E 

C864321E 

6160 


.BYTE 200,100, 

50 

, 30, 

10,0 



18 


vj -i~ n j— 

0A00 









% 

19 

!0 


v * •W , .V 

v «¥< V H?:.- 

Y %- ."*„ 

f y f f H 

6180 

6200 

5 

5 








21 



* _ ' 

6220 

M 

INIT THE BONUS PAGE DISPLAY LIST 


22 




6240 

n 

9 _ 







3 

23 


52A4 


6260 

IBDLST 







24 


52A4 

A970 

6280 


LDA 

#$70 





3 

25 


’52A6 8GAA42 

6300 


STA 

DLIST 





26 

27 

w 

MW 

,6340 


STA 

STA 

DLIST+1 

DLIST+2. 




:&t * 


28 


52AF 

A942 

6360 


LDA 

#$42 ? 

1 

1 i ne 

mode 2 + 

1 oad 


29 


52B1 

8DAD42 

6380 


STA 

DL.IST+3 






3C 


52B4 

A9E<6 

6400 


LDA 

# <HMEM 





3 

31 

32 

& 

: ... 

52B6 
* 52B9 

SDAE42 W 
§947 

6420 

6440 


STA 

LDA 

DLIST+4 
# >HMEM 






33 

; % 

•'■"•£286'' 

8DAF42 

6460 


STA 

DLIST+5 






34 


52BE 

A982 

6480 


LDA 

#$32 ; 

1 

1 i ne 

mode 2 + 

DL I 

3 

35 


52C0 

8DB042 

6500 


STA 

DLIST+6 






36 


52C3 

A907 

6520 


LDA 

#$07 ; 

8 

line 

s mode 7 


13 

37 

Y,.isl? v 

52C5 

A207 7" 

. 6540 


LDX 

#7 





38 


‘s^crr 


6560 

IBDL10 







39 


52C7 

9DB142 

6580 


STA 

DLfST+7,X 






40 


52CA 

CA 

6600 


DEX 






3 

41 


52CB 

1 OF A 

6620 


BPL 

IBDL10 






*2 


52CD 

A287 

6640 


LDX 

#$37 ; 

1 

line 

mode 7 + 

DLI 

% 

43 


52CF 

SEB942 

6660 


"STX 

DLIST+15 





r 4 

.V 

52D2- 

5§DBA42 

6680 


StA 

DLIST+16 






i 45 


’ 52 D5 

8DBB42 

6700 


STA 

DLIST+17 





# 

f 6 




6720 

3 







47 


52D8 

A941 

6740 

LDA 

#$41 ; 

jump and wait 



48 


52DA 

8DBC42 

6760 


STA 

DLIST+18 





m 

r 


, 52DB 

A9AA 

6760 


LDA 

# < DLIST 





p° 

1 

t-„ 

520F 

.8DBD.42 

6606 


STA’ 

DLIST+19 






51 

V 

* 52i2 

§942 ’ 

6820 


LDA 

# >DLIST 






52 


52E4 

8DBE42 

6840 


STA 

DLIST+20 





3 

53 




6860 

ft 

3 








54 


52E7 

A9AA 

6880 


LDA 

# < DLIST 






55 


52E9 

803,002 

£90.0 


STA, 

SDLSTL 





LI 

56 


, 52EC 

A942 

6920 


LDA 

# >DLIST 








"52EE 

803102 

6940 


St A 

SDLSTH 










6960 

? 







• 



52F1 

60 

6980 

7000 

n 

3 

RTS 











7020 

» 

_3_ 
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BF'A GE. M65 


52F2 

52F3 

48 

A90E 

7040 BDL.I1 
7060 PHA 

7080 LDA 

#$0E ; white 

1 ette 

52F5 

52F8 

52FB 

8D0AD4 

8D16D0 

A90C 

7100 

7120 

7140 

STA 

STA 

LDA 

STA 

LDA 

STA 

WSYNC 
$D016 
# < BDL12 

— 

52FD 

5300 

5302 

. 8D0002 
A953 
800102 

7160 

7180 

7200 

$0200 
#_>BDLI2 
$0201 


A9E0 

7220 

LDA 

# >OSCHARS 


5307 

8D09D4 

7240 

STA 

CREASE 



&8 

7$&0 

PLA 



..530B 

40 

7280 

RTI 



. 

_ 

7300 i 




530C 


7320 BDLI2 



530C 

48 

7340 

PHA 



530D 

8A 

7360 

TXA 



53 OE 

48 

7380 

PHA 



530F 

AD5D50 

7400 

LDA 

CDN 


cr*7* •} /*“k 
W O X .it. 

D006 

7420 

BNE 

B2DL05 


5314 

8D16D0 

7440 

STA 

$D016 


5317 

403^53 

7460 

JMP 

B2DL20 




7480 5 




531A 


7500 B2 

DL05 



531A 

AD5950 

7520 

LDA 

CFADE 


53 ID 

8D0AD4 

_7540 

STA 

WSYNC 


5320 

8D16D0 

7560 

STA 

$D016 


5323 

18 

7580 

CLC 



5324 

A 2 OF 

7600 

LDX 

#15 


5326 


7620 B2DL10 



5326 

6901 

7640 

ADC 

#CINC 


5328 

48 

7660 

PHA 



5329 

29FB 

7680 

AND 

#$FB 


532B 

SD0AD4 

7700 

STA 

WSYNC 


532E 

8D16DO 

7720 

STA 

$D016 


5331 

68 

7740 

PLA 



5332 

CA 

7760 

DEX 



r— ‘T T "i* 

DOF 1 

7780 

BNE 

B2DL10 




7800 s 




5335 

SD5950 

7820 

STA 

CFADE 




7840 ; 




5338 


7860 B2DL20 



5338 

68 

7880 

PLA 



5339 

AA 

7900 

TAX 



533A 

68 

7920 

PLA 



5338 

40 

7940 

RTI 





015700 

.INCUJOE #D2;HDRSUB. 

M65 



1000 

.PAGE "header subroutines 


























PAGE 22 URN DOWN 
header subroutines 


for Atari systems 


D2: HDF'SUB. M65 


Ul 


1020 
1040 
1060 
1080 
1.100 
1120 


HDRSUB.M6^ 


THE 


HEADER DISPLAY FOR.UPN DOWN 


1140 
JL160. 
1180 


; *ADDS_COR* 

: ADD THE 2 BYTE BCD VALUE IN R+5-R+6 


1200 

1220 

1240 


TO THE 3 BYTE BCD VALUE UN R+2,R+3., R+4 
AND DISPLAY AS A 6-DIGIT DECIMAL 
NUMfeER AT SCREEN LOCATION POINTED 




1260 ; 

TO BY 

R+0,R+l 




1280 s 






1300 ADDSCOR 



533C 

8A 

1302 

TXA 



533D 

48 

1304 

PHA 



533E 

E8 

1320 

SED 


s decimal 

533F 

A5D6 

1340 

LDA 

R+2 

; get L_SB 

5341 

18 

1360 

CLC 



5342 

65D9 

1380 

ADC 

R+5 


5344 

85D6 

i4oo 

STA 

R+2 " 


5346 

A5D7 

1420 

LDA 

R+3 

; middle 

5348 

65DA 

1440 

ADC 

R+6 , 


534A 

85D7 

1460 

STA 

R+3 


534C 

A5D8 

1480 

LDA 

R+4 


534E 

6900 

1500 

ADC 

#0 


5350 

85D8 

1520 

STA 

R+4 


5352 

DS f 

1530 

CLD 



5353 


1540 ADDS10 



5353 

AOOO 

1560 

LDY 

#0 

;_ptr to 

5355 

A202 

1580 

LDX 

#2 

; index t 



1600 ! 






1620 s 

Fidd first non 

-zero 



1640 5 




5357 


1650 ADDS18 



5357 

B5D6 

1660 

LDA 

R+2, X 


5359 

29F0 

1680 

AND 

#$F0 


535B 

DO 18 

1700 

BNE 

ADDS20 


535D 

A91B 

1720 

LDA 

#24 

; space c 

535F 

91D4 

1740 

STA 

<R+0>,Y 


5361 

CB 

17 60 

I NY 



5362 

B5D6 

1780 

LDA 

R+2, X 


5364 

290F 

1800 

AND 

#$0F 


5366 

DO 16 

1820 

BNE 

ADDS24 


5368 

A? 18 

1840 

LDA 

#24 


536A 

4l D4 

1860 

STA 

(R+0),Y 


536C 

C8 

1880 

I NY 




536D 
536E 
5370 

CA 

10 E 7 

E8 

1900 
1920 
1930 ' 

DEX 

BPL 

INX 

ADDS18 

5371 

88 , 

J932 

DEY 


.5372 

4C7E53 

1940 

JMP 

ADDS24 



1960 s 



5375 


1980 ADDS20 


5375 

B5D6 

2000 

LDA 

R+2, X 

5377 

4A_ _ _ 

202Cy 

LSR 

„A 




write high nybble 


5378 4A 


QP 









































^_ 


1960 


ii 

4 

* 

* 

% 


5375 
5375 
,5377 4A_. 
5378 4A 


1980 ADDS20 
2000 LDA R+2,X 

2Q20 LSR A 

2040 LSR A 


write high nybble 


4 


URN DOWN 
header subrouti nes 
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D2 a HDRSUB.M6‘ 


5379 

537A 

537E< 


_4A 

4A 

91D4 


2060 

2080 

2090 


* 

* 


* 

» 

# 

m 

m 


537D 

537E 

537E 


C8 

B5D6 


2100 INY 

2110 ADDS24 


LSR A 
LSR A 
STA < R+0) 


Z260 


5380 

5382 

5384 


290F 
91D 4 
C8 


&5 CA 
" !0 
5388 68. 


2280 

2500_ 

2520 


u 

5386 


2540 

2560 

2562 


5389. 
538A 


_AA 

60 


. 2564 
2600 
2620 


LDA R+2,X . _ 
AND #$0F 
STA <R+0)',Y' 
IN Y 
DEX 

8PL ADDS20 

PLA __ 

.TAX 

RTS 


get bv te__ 

w rite low nybble 


2640 ; 

2660 ; 

.2680 l I NIT T HE PL AYER DATA TABL E 


538B 

538B A9Q0 


2700 

2720~ 

2740 


IPLYRDJT 

LDA 


5380 A20F 
53.8F . 

538F 9D9742 


#0 


2760 

2780 

2800 


#15 


5392 CA 

5393 1OFA 


2820 

2840 

2860 


LDX 
IPLY10 

STA PLYRDAT . X‘ 


DEX. 

BPL 


clear PLYRDAT data a'rfea 


IPLY10 


5395 


A9BC 
5397 8D9742 
559A A947 


2880 

29Q0 

2920 


k2i 


Us 


.539C_8D9842 
539F A9E4 
53A1 8D9F4 7 
53A4 A947 
58a6 8D9F42 


LDA # CHWEM+6 
STA PLYRDAT 
LDA # >8MEM+6 


set pointer to F'LYRl 


2940 

2960 

2980 

3000 

3020 


. ?TA PLYRDAT+1 
LDA# C HNE M+46 
STA PLYRDAT+8 


plyr: 


LDA # >HMEM+46 
STA PLYPDAT+8 



3060 



3080 
3100 

; DLI routine t 
; between heade 


3120 

$ header £jraphi< 


3140 

M 

9 

53AA 

3160 

DLI1 

53AA 48 

3180 

F'HA 

53AB A900 

3200 

LDA #$00 

53AD 8D0AD4 

3220 

STA WSYNC 

53B0 8Q1ADO 

3240 

STA $D01A 

53B3 A90E 

3260 

LDA #$0E 

53BS- 8D16D0 

3280 

STA $D016 


text 


e colors 
(to p.) and 


(bottom) areas 


b 1 ac k 


white 


5 3B8 
53BA 
53BD 


A 986 
SD17D0 
A91E 


3300 

3320 

3340 


53BF 8D1SD0 
5302 A915 
5SC4 8D0002 
5307 A954 
5309 8D0102 


LDA 

.STA 

LDA 


#$ 86 _ 

$D017 

#$ie* 


3360 

3380 

3400 


3420 

3440 


SJA $D018 
LDA # <TFDLl 

S TA $020 0_ 

LDA # >TFDLI 
STA $0201 


b 1 ue 
yel1ow 


set vector to next ..DLL 






















53CD40 


3430 


RTI 
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D 



3500 

H 





3520 

a 




53CE 

3540 

DLI2 




' ; ,53ce m 

5560 

PH A 




1 H, s '-53eE A9C6 

3580 

EDA 

#$C6 

; green . * 


• . ' 531}I 8b0AD4 

3600 

STA 

WSYNC 

# V 


“1 53D4 8D1AD0 

3620 

STA 

$1)01 A 



1 53D7 A900 

3640 

LDA 

#0 

; b1ack 


2 53D9 8D18D0 

3660 

STA 

$D018 



53DC A9F6 

3680 

U0A 

#$F6 

5 brown 


4 , 53DE 8D16D0 

3700 

STA 

lf>016 

x. x •• •’■ iJi .:: 

\ , 4 Jiffy * 


5 " '■ 53E1 A9A2 

3220 

LDA 

# CFDLI 

t? set -flao DLI </ect. * 


“ 53E3 8D0002 

374u 

STA 

$020Q 



7 53E6 A971 

3760 

LDA 

# >FDLI 



3 53E8 8D0102 

3780 

STA 

$0201 



9 " 

3800 

ft 


•< • .; 2;* ‘ « 

w. . 


0 #*• " «■ a & 

5820 

; Restor 

-e VW” color's 


\ :f ' 

3840 

. 


* * 


2 53EB A99A 

3860 

L.DA 

#$9A 

; b I ue 


3 53ED SD12D0 

3880 

STA 

COLPMO 



4 53F0 8D14D0 

3900 

STA 

C0LPM2 



■BH1 

3920 

LDA 

#$06 

; grey 


8 53F5 8D13D0 

3940 

J&TA 

C0LPN1 

r 


7 53FS 8D1SD0 

3960 

* STA 

C0LPH3. 

f A , % 


8 

3980 

« 

.3. 




9 

4000 

s Restore VW position 


0 

4020 

■ 




1 53FB ADE55F . 

4040 

LDA 

BUGHO 

4“ 


2 53FE 8D00D0 

4060 

STA 

HPOSPO 



3 5401 ADE65F 

4080 

LDA 

BUGH1 

7 " *'s , **/ v 


4 5404 8D01D0 

4100 

STA 

HP0SP1 



3 5407 ADE75F 

4120 

LDA 

BUGH2 



6 540A 8D02D0 

4140 

STA 

HP0SP2 



7 540D ADE85F 

4160 

LDA 

BL/GH3 

v fcyii 


8 5410 8b03D0 

4180 

STA 

HP0SP3 

V &: * 


9 

4200 

« 


. 4 * L. . 


0 5413 68 

4220 

PLA 


* 


1 5414 40 

4240 

RTI 




2 

4260 

■ 




3 

4280 

; TOP FLAG DL-I 

. • • 1 - l fc • 

£ 

% 


4 

4300 

a 

•I 


■t '•s- 

% 

5 , 5415 

4320 

TFDLI 


1 


8 5415 48 

4340 

PHA 




7 5416 A9CE 

4360 

LDA 

# <DLI2 



8 5418 8D0002 

4380 

STA 

$0200 

i 


* " 54 IB A953 

4400 

LDA 

# >DLI2 


** 

0 ! 541D. EDO102 

4420 

STA 

$0201 

5: * i 

; set index to FDLISE8 ' 


' * ‘ 5420, A900 

4440 

LDA 

#0 


2 5422 SDE371 

4460 

STA 

FDLINDX 



3 5425 ADE471 

4480 

LDA 

FTOPDLI 

; need top DLI? 


4 5428 F004 

4500 

BEQ 

DL. 1220 



5 542A 68 

4520 

PLA 


5 yes restore stack 


6 , 5428 4CA271 

4540 

JMP 

FDLI 

5 do -flag DL.I 

fe 

7 54 2E 

4560 

DL 1 220 



jz 


542E 
542F 


68 

40 


4580 

4600 

4620 

4640 


PLA 

RTI 


■y<~? *4 


HDRSUB.N65 











































>• 


4640 ; 


4 


> 


* 

e 

( 

c 

c 

c 

t 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

€> 
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$ Y . fr- 


% 


4 


4660 


■4680 


: -D RAW THE PLAY ERS E XTRA CARS 
5 IN HMEM. NUMBE R OF CA Es D RAWN 


,4700 


IS "CARLFT" 




5430 

5430 A95 6 


54 32 85 D4 
5434 A948 
543685D5 


4720 s- f ‘ * , - V 

4.740. ECAR 

4760 LDA # _< HMEM+16.0 j ini t ptr to HMEM 

478 0 STA R+0 

LDA # >HMEM+160 


V. v»Y4ty-> 




PP ** 


.w« 


4800 

4820 


STA R+l 


.-.f, 


543A- A000 


:a 


:A20O 


#0 




4840 LDX 

4860 ECAR10 
4880' LDY #0 


TT 


543C 84DD 
543E 


543E A5DD 


490p STY R+9 

4920 ECAR20 
4940 LDA R+9 


get count of chars drawn 


.544.0. P.905 
5442 F023 
"5444 CD964 2 


544 7 BOOF 
5449 BDFA54 


544C 91D4 


4960 

4980 

500CL 

5020 

5040 

5060 


CMP #5 

BEG ECAR50 5 done with row 

CMP CARLFT ; chec k written enou.gh, cars vet 
BCS ECAR30 5 yes - branch to write blanks__ 


LDA ECARDAT, 
STA (R+0) 5 Y. 


write car data,__get .byte. 


544E E 8 
544F C 8 
5450 BDFA54 


5080 

5100 

5120 




54 E 


91D4 . 
4C6054 


INX 
I NY 

LDA E CARD AT 
(R+0) 


write next byte 


5458 


5140_STA (R+0) , Y 

5160 JMP ECAR40 

5180 ECAR30_ 


54.58 A900 
545A 91D4 
545 C EEL _ 
545D C 8 


5200 

5220 


240 


LDA #0 

STA (R+0),Y 

INX 


write blanks 


5260 


545E 91D4 
5460 




SO 


INY 

STA 


(R+0),Y 


5300 ECAR40 


5460 E 6 DD 
5462 CA 


5320 

5340 


INC 

DEX 


R+9 


5463 

5464 


C 8 

46; 


E54 


5360 

5380 

5400 


INY 

JMP ECAR20 


5 inc count o-f cars drawk ion. row # 

; continue - set X back tfat.a -for nekt 

_car , _ 1 * , I 

:t space _ __ ____ __ _ 

character 1 


ne> 
next 


5467 

5467 E016 


5420 ECAR50 
5440 CPX 


#22 


; check done (12 ro^s#* 2 - 

old index -1 -for star t ing, at 0 


■ 1 for 


5469 JBplO 
.546B E 8 . 
546C E 8 


5460 

5480 

5500 


BCS ECAR60. 
INX. 

INX 


set to new data 


546D A5D4 5520 
546F 18 5540 
5470 6928 _ 5560 


LDA R+0 
CLC 

ADC #40 


update HMEM ptr tp : APKt rpw* 
40 byt.e s /li.n e ", 


f 


5472 85D4 
5474 90C4 


5476 


E 6 D* 


5580 

5600 

5620 


STA.R+0 
BCC ECAR10. 
INC R+l 


4 


5478 
547$ « 

547B 60 


4C3A54 


5640 JMP ECAR10 

5660 ECAR60 
5680 RTS 


do next row 


5700 


547C 


5720 5 INIT THE HEADER MEM. 
57.40 j _ . _ 

5760 IHMEM_ 


■ 
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547C A24F 
547E 

547E BD1255 
5481 <5*8647 
5484 CA 


5487 A20.3 


5489 

5488 

548D 

548F 

5491 


A000 

£906 

85D4 

A94S 

85D5 


5497 . 

5498 

549A 


5498 


C 8 


DOFB 

CA 


FOB 
D 
9 


A 

A 

A 


54A4 
54A6< 
54 A 7 


54A8 


54AA 


9-1D4 

C8* 

CA 


DOFA 


60 


54AB 
}34&B SA 
54AC 48 


y ^ ^ 

'if 


54AJD 
54 AF 
~54Bi ' 
3481 
5484 
5486 

5488 

5489 
548G . 
54BE 


A200 

AOOO 


BDDA54 
25D7 
91D4 
E 8 

BDDA54 
2587 
A 001 


578 0 
580 0 
5820 
5840 
5860 
5880 
590 0 
5920 
5940 
5960 
5980 
6000 
6020 
> 


LDX #79 . 

IHME10 

LDA IHTXT.X 
STA HMEM,X 
DEX 


init text -from table 


5 clear next .header bytes for mode E_ 


LDX # >HMEMSIZ—80 
LDV #0 

LDA # CHMEM+80 
STA R+0 

LDA # >HMEM+ 8 p 

STA R+l _1 . 

LDA #0 
IHME20 

_ STA iFy-jl) KlY 

I NY 

BNE IHME20 


6200 

6220 

6240 

BEQ 

INC 

jmR 

IHME30 

R+l ; next, page 

IHME20 

6260 IHME30 


6280 

LDX 

# < HMEMS'l Z-80 _ ~ . 7 

6300 IHME40 



STA (R+0 >.Y 


BNE IHNE40 


7 

6440 * 

8 

6460 5 

9 

6480 : 


DRAW A FLA0 TO A MODE "D" OR 
A MODE "E" SCREEN. 


Dest. is in (R+0,R+l) _ 

Color mask is passed in R+; 


4 


6560 

6580 

6600 


6620 

6640 

6660 

6680 

6700 

6720 

6740 

6760 

6780 

6800 

6820 

6840 

6860 

6880 

6900 

6920 


R+3=$00 
$55 
_ fAA. 


$FF 


black (invisible) 
white 


blue 


green 


EFLAG _ 

TXA 

PHA 


LDX #0 
LDV #0 

EFLA10__ ___ 

LDA FLAGDAT,X ; get data 
AND R+3 ; set color 

_STA (R+0) j, Y ’__ 

INX ; next data 

LDA FLAGDAT,X 
AND R+3 

_ LDY. #1 s write 2nd colunrfn (figure 
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D 2 :HDRSUB.M 6 . 


wi de) 


54 CO 

~54C2 

54 C 3 

54C5 

54C'7 

54C9 

54CB 

54CC 

54QE 

54D0 

54 D2 

54D4. 

54 D7 


91D4 

E8 

1 W&7' 

AO 00 

jA5D4_ 

18 _ 

6928 

85D4 

90DF 

*8605- 

4CB154 


■ §54D7 68 
5 “ ' *54D8 AA 
' 5409 60 


' -540 A 


54DC 
54DE 
54 EO 


..:::5.4E2 

' ' 54E 4 
' ;s4e6 


i _ i _54E8 

*Z_54EA 

"~54EC 

::54fq 
■ v * 54F2 
54F4 

_54F6 

54F8 


0000 

3F00 

3FC0 

3FF0 


3FFC 
3FFC 
3FF 


3FC0. 

3F00 

5000 

3000 

*3000 

5000 

.3000. 

_3000 

0000 


54FA 


„:5 # %4Fa 


_ 5 4FE 
_J5502 
5506 
550(4' 
S50E 


6940 STA 

" 6960“ I NX 
6980 „ GPX 

'700Q " BED 

*702(7 I ^ LDY 

_ 7040_ LDA 

7060 CL C 

7080 _ ADC 

13100 " , STA 

: j.x&y , -see 

i life 

_7160 JMP EFLA10 

_ 718 0 EFLA20 

- 


7280 • 

7300 

7320 


4; 7340 FLA 6 DAT 
, 7360 * 


STA iR±0),Y 
JNX. 

GPX #32 


done? 


BEQ EFLA20 5 yes — branch* 


LDY #0 
L DA R+Q 
CL C 

ADC # 40_ 

** , STA *8*0 , 

. :J 8 GC EFLA10 
INC R+l- 


7220' tPLA > 

7240:- *. TAX 

7260 , > RTS ,... 


el se next line' < i nc b' 


.1 i nes) 



DATA FOR MODE E 


-77 380_* 

7400 

’7420 

7440 


*57460 
t\ 7480 
~ X) , 


„ 7520_ 

_754Cl_ 
7560 
■7580* V* 
4*76004 » 

* -7620.7 J 

76.4.0_ 

7660 
* 7680 


■ LtyyciO *-* 
I *7720 
* 774*0* 


.■BYTE $00, $OQ __._ 

. BYTE J3F* *00 
-fJBYlk $3F A *Q0 
. BYTE *3F', *F0 


. BYTE, *3F,*FC 
*3F,*FC 

.BYTE $5F.*F0 _ 


_. BYTE. *3F,*C0 . . __ 

.BYT E *5 F,*0Q 

_ .BYTE *50,*00 _ 

.BYTE'feO,$00 
t y. BYTE 1*30, *00 

.by xe S*3o.*oo ._ 

■BYTE *50 .*00 _ 

■ BYT E *50 .*00 . _ . _ 

.BYTE *00,*00 


* ; ,, , END OF FLAP DATA 


layer's e?:tTa' cars 


: 2 columns) 


OOOOO690 


3AAC 3AAC 

396C0550 

05500550 

3AAC3AAP 

3EBC3C3P' 

1 *• 


data for 


7760 ; _ (12 rows x 2 col um ns ) 

7780 ECAR DAT _ _ ” 

7800 s .BYTE 242,143,250,175,2^ 


§ * . BYTE ,42, 168,32,8,32,8,32, 3,32,8,34, 

1 ■****, * * <. 5,240, 15 

7840 “ * «. BYTE *0,0,6,144,58, 172,58, 1*72,57. 108.. 


4, 171 


34, 171,250 , T>7 


£,S0 


7860 


BYTE 5, 80.5.80,58,172,' 58.. 172.621138,60,60 


7880 - 


7 

7920 table to init HMEM with chars 

7940 .4 _ _ 

7960 IHTXT 




















7960 IHTXT 
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5516 
551A 
55 IE 

S 6 ir 


552D 


5535 


1 OOF 1312_ 
011 81818 
18181800 
18 

ICIDIEIF 
2021222 
242 52627 

.2829_ 

180D0E0C 


0D181S18 

18181818 


553A 1Q0F1312 
553E. 02181818 
5542 18181800 


7980 


8000 


8020 


8040 


JBYJE JL6, 15, 19,18, 1,, 24, 24,24,24,24,24.0, 24 

‘ Sjf ' ."" 

* * —>7 

BYTE 28, 29, 30, 31,32,33,34,35, 36', 37, 38, 39,40,41 "/S 


BYTE 24,13,14.12.13.24.24,24,24,24,24,24,0' 


, BYTE._1_6, 15, 19, 18,2,24,24,24,2 4,24. 24. O 


5546' 

IS 



5547 
554B 

2A2B2C2D 
2E2F3031 

8060 

. BYTE 42,43,44,45,46,47, 48,49,50^fl., 52,53,54, 55 


5559 

5i5D 


.3637 .. 
18121415 


16171818 

18181818 

00 


4.24,24 


.5562. 

5562 

A 9 00 

8240 

8260 

5564 

85D6 

8280 

5566 

A958 

8300 

5568 

85D7 


556A 

A 200 1 _ 

8340 


JJOL 

556C 

536F 

5571 

5573 

5575 

5576 
5578 


557B 

;■# '•••:• ,..v . 

_ 557C 


5585 


BDA55 5 

302E 

AOOO 

84D5 _ 

OA 

26D5 

OA 

26D5 

OA 

26D5 _ 

85D4 

A5D5 

18 

69E0 

85D5 


J3100 j 

812 0 j_ 71. .. ." 

8140 ; INIT TEXT/TITLE CHARS 


8160 ; OS chars needed for text are copied 
8180 5 to TCHAR mem. and CHBASE is set 
8200 i to po int to TCHAR 

8220 _ _ __ _' __ 

8240 ITCHARS . ~ 

8260 LDA # <TCH ARS ; init d est. ptr. to TCHAR area 

8280 STA R+2 ‘ * ' 

8300 LDA # >TCHARS 1 f 

-8.32.0._ STA R +3_,_ ,, ___ 

8340 LDX #0__ ; init index to chart’s to be copied 

8360 ITCH10 

8380 L DA CHCOPY.X ; get c har# to cop y _ 

8400 BMI ITCH30 ; 0 is end tof data 

8420 LDY #0 

8440 _STY R+l.. . . __ ______ _ 

8480. ASL A ; 8 bytes/char 

8480 . ROL R+l 

8500 ASL A _ ~ _' 

8520 ROL R+l " " ~ " ~~ 

8540 ASL A 

8560_ ROL R+ 1_ 

8580 .. STA R+0 ” ~ ~ 

8600 LDA R+l ; add in offset to OS char base 

8620 _CLC__ 

8640 ADC # >0SCHARS 

8660 STA R+l 


8360 

8380 

8400 

8420 


5587 

5587 A007 
5589 _ 
5589 B1D4 


8460 

8480 

8500 

8520 

8540 

85 60 

8580 

8600 

8620 

8640 

8660 

3680 

8700 

8720 

8740 

8760 


ITCH15 

LDY #7 
ITCH20 

LDA (R+0?,Y 
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Moore Business Forms, Jnc, sv 1412RH 










59C0 

5900 86 EC, 

~59C2 
59C2 A901 
S9CA 20525ft 

■W& mSUtjt, 


5909 

5909 

59CB 


59CP 

59CF* 

59D1 

59D1 

59D5 

: *ss®|§ 

MMM 

59D9 

59DB 

59DC 

59DD 


A910 

35E7 

Aoob 

A20 5 

Ude 

91E0 
.3.1 £2 
4.1E4 
9 IDE 

08_ 

CA 

D0F2 


1130 
1180 
1200 
*4220 
1240 
1260 
1290 
129 2 
1300 
1320. 
1340 
1660 
1680 
1700 
1 720 ' 
17^0 
1760 
1780 
1 800 
1820 
1840 


1900 

1920 

1940 

I960 


J DRA W R OUTINE -__DRAWS OBJECT 
5 IN OBJTBL IN DEX ED BY X req 


DRAW 

St X R+24. 

DRAW03 

~*LDA #1 


J Pr eser ve Xreq 


j-DA # 1 _ ; flag draw setup __ 

JSR DESETUP ; setup pointers and variables 
BCS DRAysp .branch i# not displayable 


draw. 


ttbyte scrow_ 


DRA W04 __ *_ _ _ _ - 

_ LDA # 1 6 #_rows to draw 

.STA R+19 

' . J_DY #0 *~”" r ’ 7 ~~~~ T 

DRAW0.5 , . ‘ 

__ LDX #5 ; ttbyte scrow 

DR AW 1 0 ‘ * 

_ IDA <R+ 10) , y 5 get current, background 

STA (R+12) , Y ; save _____ 

,‘ t A^4 <R+14)! !l ,V ; create ’.’.Hal e" with maik 

, Psjtb'^Rf+KyilY ; write to sc reen 

_I NY__ ___ _ _* “ 

--DEX_ ;_dec count jgf bytes in row 

BNE D RAW10 


59E5 DO10 


A5DE 
59E9- 38 
59EA E9SD 
59EC 85DE 


5 9EE 


59F0 


59F2 

59F4 


A5D F 


E911 


85DF 

4CCF59 


2140 

2160 


2180 


“200 


DEC R+22 


BNE DRAW1 


LDA R+10 

1 sec; ,"* 

i 


i 4 uu u 

# ‘^4112*400-35 


dec count ’of rows to draw 
b ranch when done" _ _____ 

time to wrap? 
no - branch 


5 , else reset ptr 
S to buff beginning 


STA R+10 


LDA R+ll 


>«112*400 



5A02 4CCF 59 

5A05 _ 

5A05 18 ^ . 

5A06 

5A06 A6EC . 
5AO 8 60 


2400 JMP DRAW05 

_2420_ DR AW20 
2440 1 CLC 
2460 DRfete. 

24SQ " LDX R+24 

2520 RY 


successful 


ERASE .ROUTINE - ERASE ENTRY IN 
OBJTBL INDEXED BY Xre 





























60 O 


PAGE 32 UPN DOWN - 
DRAW/ERASE 


~ for Atari systems 


D2:DRAW.M65 



5A09 _ 

5A09 8 A 


5AOA 48 , , 

5AQB A900 
5A0D : 20525A 


2620 s_ 

2640 ER ASE 
2660 TXA 


2680 PHA. 
2700. LDA 
2720.0 SR 


#0 ; -flag 1 erase setup 

DESETUP f setup -for 'erase , 


• erase 


5A12 A96E 

.5 A14o.: "M. 

5A14 CD0BD4*; 
SA17 90FB 


5A19 


2760 


2820 

2830 

2840' 

2850 


2860 

298 0 

3000 


LDA 

ERAS06 


#110 




f BCC 


VCOUNT * t» s syncSffco screen. 
ERAS06 ' V * *7 



ERAS04 


LDY 

LDA 

STA 


#0 

# 1-6 * 
R+19 


# rows to draw 


5A1F 

3080 

ERAS05 


5A1F A205 

3100 

LDX #5 


5A21 

3120 

ERAS10 


. •5A21.B1E0 

3140 

UDA? (R+,12),Y ; get saVed background 


* ■ - . 5A23 9IDE 

3160 

J&.TA (RtiOr, Y s restore to scr^ilf 


' > -5A25 C8 

3180. 

, :v “, INY . * ‘ ft 4“ 


5A26 CA 

3200 

DEX 


5A27 DOFS 

3220 

BNE ERAS10 



3240 

5 . .. 


,5A28 C6E7 

3260: 

; DEC R+19 If# 

‘ —— 

/s§$2S|*f?022 

3280 

1*7 BEQ ERAS30 %Z 


a „ Jtf; '- v 

3300 

s ...... A* 


5A2D C6EA 

3320 

DEC R+22 2 time to wrap? 


5A2F DO10 

3340 

BNE ERAS15 


5A31 A5DE 

3360 

LDA R+10 



' 5A33 38 
5A34-. E95D 
5A36 85PE 
5A38 A5DF 
5A3A E9 11 
5A3C 85DF 


5A3E 4C1F5A 
5A4 if 
5A41 A5DE 


5A43 13 


3380 

34Q0„ 

3420 

3 440 

3460 

3480 


3500 

3520 


# <4112*408435 
R+10 
R+l 1„ 

# >4112*408-35 
R+l 1 


ERAS05 


R+10 



5A4F 


5A4F 68 


5A50 AA 


8A51 60 


3680 ERAS30 


A 

X 

3780 RTS 


3720 


3780 

3820 


5 - DRAW/ERASE SETUP 


3860 5 SET REGISTERS WITH INFORMATION 
3880 ; NEEDED TO DO DRAW OR ERASE 
J390Q*v-.i_ .IF Ac cum. =£ OjEJ-CASE^. J SL.8EXUE '4 


nn ai.i t r*' nrn in 




























3880 $ NEEDED TO DO DRAW OR ERASE > 
3900 ;_j:F Accum._ =j 2 H ERASE IS _SETJJP4,^ 
3920 5 _ I F Ac cum. < > O. DRAW IS SETU P_ 
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DR AW/ERA SE__ 


3940 ; ___ 

3960 ; R+10,11 
3980 ; R+12-15 _ 
4000 5 R+14,15 
4020 ; R+16,17 

4040 ; R+Ta' _ 

4060 ; R+2 0.21 
4080 j .R+22 

4100 ; _ 

4120 ; 

41*40 i Uses fe +23 
4160 : _ 


5A52. _ .. 4180 D ESETU P . __ _ 

?A52 48 _ . 420 0 PHA 5 save flag -for draw or 

__ 4220 ; _ _ _. _Z__I_L 

4240 i Df^playable? 

4260 ; *"* 

_5A53_JBDFE62_ 4280 _ EDA YPOS.X j Y range is 0—95 _ 

5A5 6 C960 __ 4300 CNF' #96 

5 A58 9003 * . 4320 * BCC DESE10 . . " “ 

5A5A 68 _ 4340 PLA _ ; remove -flag -from st ack 

5A5B 1 38 4360 SEC 3 flag not successful 

5A5C 60 4380 1RTS j 

< _ 4460 8 J 

_ .... 4420 ; Set wraparound_counter 

4440 ; _ 

5A5D _4460 DESE 10 ~_ 


4480 CLC 

4500 ‘ADC DSCROL ; Y is relative to top c 

452 0 _ . TAY__ ___ _ 

4540 SJA R+22. ~ ‘ _ 

4560 LDA #112 

4580_SEC 


5A67 E5EA 4600 SBC R+22 

5A69 B002 4620 BCS DESE15 

5 A6B 6970 _ 4640 _ADC #112 _1 

5A6D...._ _ 4660 DESE 15 

5A6D 85EA. 4680 _ _ STA R+22 

_ 4700 5 


4720 ; Set initial screen pointer 
4740 ; 


5ASD 18 
5A5E 6D0A40 

5A61 AG _ _ 

5A62 85EA 
5A64 A970 
5A66 38 


F'TR TO SCREEN 
PTR TO B ACKSAVE AREA 
PTR TO MASK 
PTR TO DATA 

INIT. SCREEN ROW _ 

USED. __ 

WRAPAROUND.COUNT - 
# line s f rom end of 
buffer current ptr is? 


5A6F, B93E 40_ 4760 _ LDA DS PTBL.Y__ 

5A72 85DE . 4780 .. ST A R+10 

5A74 B9 1D41 4800 LDA DSF'TBH, Y 

5A77 85DF _ 4820 STA R+ll 

5A79 BDF562 4840 LDA XPOS,X 3 get X 

5A7C 4A .* 4860 LSR A ; convert to byte# 

5A7D 4A _48S0_ LSR A_ 

5A/E .18 49 00 CLC 

5A7F 65DE 4920 ADC R+10 ; add to pointer 

5A81 85DE _ 4940 _ STA R+10 

5A83 9002 4960 BCC DESE20 

5AS5, E 6 DF 4980 INC R+ll 

___5000 $__ ___ __ 


D2s DRAW.M65 






















; QBJTBL. index determines back lave area 


4 

* 

I 




> 

* 
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M 


38 

8?) 

40 

4i; 

i 

4/ 1 


5 i 


5A88 A8 
5A89 B 9156D 
5A8C 85E0 



5 A 9 3. 
5A93 


B91B6D 

85E1 

88 


LAY 

LDA 

STA 


BSTBLL 

R+12 


Y 


address low 


5160 
51 SO 
5200 


5A94 F03F 


5240 

5260 


LDA BSTBLH,Y 
STA R+13 

PLA_: 

BEQ DESE30 




" high 

check draw or erase setup 
erase then done 


5406 BDF563 
5A99 2003 


5280 

5300 


Init ptr to mask 


5A9B S5EB „ 
5A?D_ BD.0763 
5AA0 C902 


,5340 

5360 

5380 


5AA2 9010 
5AA4 F00C 
5AA6 38 
5AA7 E901 
5AA9 C904 
SAAB 9007 


LDA XPOS,X 
AND tt$03 _ 
STA_R+23 
LDA DIR,X 
CMP #2 


•form index to data/m^lfe tables 
XPOS determines shift', 


5400 

5420 

5440 


BCC DESE57 
BEQ DESE56 
SEC 


dir determines image 
check for truck unde-f dir, 


5460 

5480 


5AAD A902 
5AAF 4CB45A 
5AS2 


SBC #1 
CMP #4 
BCC DESE57 


5520 


.5A.B2 A900_ 
5AB4 _ 

5AB4 OA 


LDA #2 
JMP DESE57 
5560 DE SE56__ 


'•••V -.v. 


SABS OA 
5AB6 18 
5 AB7 65 EB 
5AB9 OA 


5580 LDA #0 

_5600 DESE57 
5620 ASL A 


5640 

5660 

5680 


SABA BCEC62 
5ABD 795A6B 


5700 

5720 

5740 


ASL A 
CLC 

ADC R+23 


.ASL 

LDY 


A 

TYPE,X 


5AGO A8 
5AS1 B9C56B 
5AC4 85E2 


5760 

5780 

5800 


ADC 0BJREF~ H Y ; carry still clear 


5AC6 JB9C66B 
5AC9 85E3 


5820 

5840 

5860 


TAY 

LDA OBJMSK,Y 

STA R 4-14_ 

LDA OBJMSK+1, 
STA R+15 


Y 


5ACB B9856B 


5ACE 85E4 
5ADO B9866B 
5AD3 85E5 


5880 

5900 

5920 

5940 

5960 

5980 


Init ptr to data 


LDA QBJDAT-Y 
STA R+16 
LDA OBJDAT+1,Y 
STA R+17 


d ata addr. high 


1 ow 


SAD5 
5AD5 18 
5AD6 60 


6000 ; 

6020 DESE30 

6040 __ CLC 

6060 
015740 
1000 


.fl ag suc ces sful 


RTS 

.INCLUDE #D1:TRACKS.M65 
.PAGE "TRACK" 
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1020 ; 
1040 ; 
i_o 60 jy 
>**£©80. 1 
—r ioo i 

^tosqj 

' ^rt4 ° . 
1160 

■ * i iacL 

- 1200 

1220 

1240 


1260 1 
1280 i 

_1300J 

1320 

1340 

VS6Q- 

1380 

1400 

1420 


. TRACKS >65 
BLSTINC *; * ‘ 

BLSTNZR * 

- su ?STTT 

bpthc.1 3 

SCRFCG_*r_ - 

rONPCTR *-* * 

3 OLDBUGY *- * + ^ 

^Tporta. - ZgtjX' 

lO PACTL. - - 

>6 04D8PS —'-——77 

STBWW.W ; “> 

10 ftCC rHT *«4±i 

tojSCCOff— 

57 S^its 

.00 TRIO 1 -! r— 

-- 


WMLSfe©. *“• ^ +1 


5AE2 

5AE3 

5A§L4_ 

SAE5 

5AE6 


1440 WHL-SE 

1460_I—-* 

148Q_5 - r 
150° .5 g 
__l520__l-§^ 
1540 > 
1560 ? ON 

l5§0__li.- 

1600. JL 
1620 j.— 

>640_J- 

1660 ? 
1680 

1700_J- 

1720,1_ 

' ~ 1740_,S 

* " J/760_JL— 

1780- j 
1800 I 
_lS20_Su_ 
* 1840 _ 5 . 

I860 .1 

• 7Ti880__s_ 

- *"" 1900 t 

1920 ; 

1940.-1 
i960 ! 

- — JL980 J 

-" 2000 

•- - 2020 ~ 

2040 

^J2060_ 
■* >080 

2100 
J2JL20 


-- +-n tCDP^t-S- 1 

__ . _+• Velati-Y®-> 

. y tr ack_B3XB—- 

di.r_gcti.sa- — rr"Ioi‘i>wing_- 

HJ5bx" to pith Polling.occurs-- - 
TTSTot t or illt y posi tion 

ISUirKAi®-777 

_L-ei^ Y f-7>”p° rt - ■ ' 7. — - • 

smax.J'jaa-*—37 ed (must oe * 4 

—T>ax bwd 7" P accel- inC5 ' 

. dolay jssBt-SiSUJi-- 

—MnSei >7®P-Pf h - ■•." - - 

- - 5 Itick triqS? r qet77»— 

- : f 

■^rW erBB C^°courit -f° r w - heel SPin ._ 

L - sequence --- 


1—-—- " ~~ ” -- — n p ft VEHlCL-i- 

?> 'c?K!TER WITH: x (OrJ^—- 

? £N% +0 -7o-95) . 

- J T—Tl&r Sejant- direction - 


" R+26 

' TT27_ 

R+23 

R+8 

RETURNS7 

" R+0 

—' ‘ jr+3 


——rr"-~ '"Tight 

left 3 

o level 4 _' 

1_——~= . __ --- ' 

"2 down. - - - - _ _---- 

last incrjment.^^^-777>T 

ia S tJ7’7S:rTt ™ ■'« verse 

speed <ne coun ter 

■forced P atn _-- 

ToT^w*. by ' te ' ’ 

r : %' ' ' direction--- 

TTt ground 

- nit water 


“ USES: - , 7 " 9 

r+4,5,6?'?“ - 

'TR ACK, -—— 

- ^TYA 
PHA 

__jfXA-__-—-- 

-PHA 

' P RAC0 L d *h ... > 


PHA y L j_ag2. 

' c02 _ a : -on- path.-o E.-^ ^ - 
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2140 


BEQ TRAC10 


tracking - branch 


1 ? 

e 

-F 


# 

# 

# 

o 

7 

T) 

3 

*36 


5 


!'7 


4 ; 

r> 

r> 

•> 

T> 

'*5 


v 
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o 

o 

0 !i 

& 


19 

20 
2! 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

H 

\ 

351 


36 

3/ 

38 

39 
40! 
4 

421 

43 

44 

45 

46 

47 

48 

49 

50 
“5i 
1*2 
F 

[54 

55 

56 


! 160 


21 80 ; On. .path - ge t next byte and add 
2200 ; as Xpos. incremen t _ 


5AEA ,2903 
5AEC 85DD 


2220 

2240 

2260 


AND #3 
STA R+9 


calculate path index 


5A EE A5D6 
5AF0 0A 


?280 


5AF1 OA 


2300 

2320 


LDA R+2 
ASL A 
ASL A 


5AF2 05DD 
5>AF4 AA 
5AF5 BD245C 


2340 ORA R+9 

2360 TAX 

2380 LDA F'ATHD, X 


path index in Xreg 
get inc. _ 


_5AF8. A6F0 
J3AFA 1005 
5AFC 49FF 


240.0 LDX R+28 

2420 BPL TRAC05 

2440 EOR #$FF 


forward or backward? 


invert addend 


Safe is 

SAPP 6901 


2460 CLC 

2480 ADC #1 

2500 TRAC05 


5B01 85EE 
5BO3 0900 
5B05 F002 


2520 

2 540 

2560 


SIA R+26 
ORA #0 
BEQ TRAC06 


save as last inc, 
set zero flag 


IK 


f8 


5B0A 65D4 


5B0C 85D4 


2580 STA R+27 

2600 TRAC06 

26 20 CLC _ 

2640 

’ 2660_ 

2680 ! 


save as last non-zero 


add to Xpos. 


ADC. R+0 
STA R+0 


5B0£ C6DC 
5BIO 4CA95B 


2700 

2720 

2740 


DEC R+8 
JMP TRAC70 


update index 


5Bi: 


2760. 

2780 

2800 


Track the left.edge of the road 


TRAC10 


;:5B13 

Sbis 

SB 16 


A5D5 

18 

6D0A40 


2820 

2840 

2860 


5B19 


690B 

A8 

A5D4 


2880 

2900 

2920 


LDA 

CLC 

ADC. 

ADC 

TAY 

LDA 


R+l compute ptr to screen from X,Y 

DSCROL * 


ttYTRKPT 

JR+0_ ; get x 


25 


5B1E 

5B1F 

5B20 


4A 

4A 

18 


2940 

2960 

2980 


LSR 

LSR 

CLC 


A ; find horizontal byte offset 

A 


5B21 793E40 


5B24 85DA 


3000 

3020 

3040 


ADC DSPTBL, Y ; low byte 


5B26 B91D41 
SB29 6900 
5B2B 85DB _ 

5B2D~ A 5DA 
5B2F 38 


3060 
3080 
3100 
3120 
3140 
3160 


STA 

LDA 

ADC 

STA 


R+6 _ ___ 

DSPfBH^Y high byte 
#0 
R+7 




LDA 

SEC 


R+6 


; —5 to allow search of left byte 


5JB3Q E905 
5B.32 85DA 
5B*34 B002 


3180 

3200 

3220 


5B36 C6DB 


SBC 

STA 

BCS 

DEC 


#5 
R+6 
TRACIS 
R+7 


3 


• 


5B38 

5B38 A202 

3260 

3280 

3300 

a 

3 

TRAC18 

LDX #2 

■ # bvtes to search-l 

-- 

n 
l * 





4M 

k 

! 

( 






'sSL- 




•s 

m 
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5B38 A202 


o>2SO TRACIS. 
3300 LDX #: 


j # bytes to search -1 
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I r 


5B3A 

A006 

5B3C 


5B3C 

B1DA 

5B3E 

C9FF 

5B40 

DOOB 


5B42 88 

5B43 CA_ 

5B44 10F6 


5B46 A908 


5B48 85DC 
5&4A 4CE65A 

5B4D 

5B4D 48 „ 
5B4E A5D4 


5B50 29FC 
5B32 18 
5B53 7D215C 
5B56 85DD _ 

5B58 68 


5B59 A203 


5B5B 6 A 


J5B5C 9006 
~5B5E_6Al 
5B5F 9003 


5B61 CA 
5B62 D0F7 




5B64 


5B65 
5B66 
8 


5JB6A 

5B6 B 

5B6D 


5B6F 
5B71 
"B73 


5B75 


8 A 


18 

65DD 
D 


38 

E5D4. 
85 D9 


A5DD 

83D4 

A6D4 


A4D5 


3340 
3 36 0 
3380 
3400 
.3420_ 
3440 
3460 
3480 


50 

52 

54 


3560 

3580 


3600 

3620 

3640 

3660 

3680 

3700 


3720 

3740 

3760 

3780 

,3800 

3820 


840 
860 
Cad 

3900 

3920 

3940 


3960 

3980 

4000 


4020 

4040 

4060 


4080 
4100 
20 


4140. 

4160 

4180 


4200 

42i20 

4240 


4260 

4280 

4300 


LDY #6 _j rightmost byte to search (middle ‘is #5) 

TRAC20 

L DA ( R+ 6 ) , Y 5 -find a non-road by te 
CMP #$FF 
BNE TRAC30 

_ LD A #$1B ..__ _ ___ 

5 STA_(R+ 6 ),Y __ 

DEY ’ __ 

DEX 


BPL TRAC20 

* Y 

a 

»t y- 

; searth -failed 


L_DA #NPATH ; set on path accordi ng to current 
directi on 


STA' R +8 
JMP TRAC02 

TRAC30__ " ~ ” ** - _ TIIZirTIZZZZZZ " ~ 

PHA ; save left road byte__ _ _ 

LDA R+0 


AND #$FC % 

CLC 

_ADC BYTADD.X ; add byte of fse t t 6 new X _._ 

STA R+9 


PLA 


LDX #3 
TRAC40 

ROR A_-_ 

_ BCC TRAC50_ 
ROR A 

BCC TRAC50 


X 

BNE TRAC40 


TRAC50 
S ORA BB,X 
TX A 


CLC 

ADC R+9 
TA R+9 


SEC 

_SBC R+0 _ 
STA R+5 


LDA R+9 
STA R+0 
LDX R+0 


LDY R+l 


set new direction 


fi nd pixel offset of a L side of roa d 


: save increment 


; set new X 


5B77 A5D9 
5B79 A6F0 


5B7B 1007 
5B7D 49FF 


LDA R+5 
LDX. R+28 _ 
BPL TRAC48 
EOR #$FF 


get inc 
fwd or bwd? 





















5B80 6901 


4440 


ADC #1 
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4^ 





~— - r 

* ! 

5B82 

sii4 

.85D9 

4460 

4480 

STA 

TRAC48 

R+5 

- - - - - - - — 

1 

5B84 

AA 

4500 

TAX 




5B85 

5B87 

5689 

E4EE 

D00B 

A58E 

4520 

4540 

4560 

CPX 

BNE 

LDA 

R+26 ; cmp to last inc 

TRAC56 

R+26 



_ 5B8B. 

5B8D 

5B8E 

FQ12 

ks 

E8 

.4580 

4600 

4620 

BEQ 

I NX 

I NX 

TRAC60 

... --- — 

— . . _ 

5B8F 

BD1B5C 

4640 

LDA 

DIRINC,X 



5892 

85D6 

4660 

STA 

R+2 

V 


5B94 


4680 

TRAC56 

... .. . _ ..... 


-- 


5B9 4 
5B9 6 
5B98 
3B9A 
5B9C 
5B9F 
5B9F 
5BA1 
5B Ao 
5BA5 
5BA7 
5BA7 
5BA9 


A5D9 

85EE 

FOOF 

85EF 

4.CA95B 


A204 
A5EF 
1002 
A2<!> 1 


4700 

4720 

4740 

4760 

4780 

4800 

4820 

4840 

4860 


LDA R+5 
STA R+26 


; save as last inc 


BEQ TRAC65 
STA R+27 
JMP TRAC65 


: save as last non-zero 


8 606 . _ 


5BA9 
5BA9 
5.1 AB 
5BAC 
5BAE 
5BAF 
5B80 
5BB1 
J5BB2 
5BB4 


A5D 4 

18 

.6908, 
4 A 
4A 
4A 

4A__ 

S5D8_ 

A5D5 


,4900 
4920 
4940 
4960 
4980 
5000 
5020 
5040 
5060 
5080 
5100 
5120 
51,40 
5160 
5180 
5200 


TRAC60_ 

LDX #4 
LDA R+27 
BPL TRAC64 
LDX #1 
TRAC64 

STX R+2 _ 

TRAC65 


C alculate pointer to s t atus b yte 


TRAC70 

_LDAR+0 

CLC 

ADC #8 
LSR A 
LSR A 
LSR A 

_ LSR A 

STA R+4 
LDA R+l 


-a<Y-32> 7 325* 1 0+(X+4)/16 _ 


offset X 


(37 

i3« 


get Y 


3 

5BB7 

690B 

5240 

ADC 

#YTRKP 

4 

5BB9 

18 

5260 

CLC 


5 

5BBA 

6D0D40 

5280 

ADC 

SCROLF 

6 

5BBD 

4A 

5300 

LSR 

A 

7 

5BBE 

4A 

5320 

LSR 

A 

8 

5BBF 

4A 

5340 

LSR 

A 

9 

5BC0 

4A 

5360 

LSR 

A 

0 

5BC1 

m 

5380 

TAY 


1 

5BC2 

B9264B 

5400 

LDA 

tflOTBL 

2 

5BC5 

18 

5420 

CLC 


3 

5BC6 

65D8 

5440 

ADC 

R+4 

4 

5BC8 

65CA 

5460 

ADC 

SCROLC 

5 

5BCA 

85D8 

5480 

STA 

R+4 

6 

5BCC 

A90p 

5500 

LDA 

#0 

7 

5BCE 

65C§ 

5520 

ADC. 

SCROLC 


|43t 

m) 

u. 



r,#' 

148 


won't ovfl 


(52 . 

-Sot O 


j56 


5BD0 85D9 


ZlZsHU 

5560 

5580 

5600 


STA R+5 


S Correct for overflow 
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5BD2 

5BD4 

5BD6 

_A5D9 

C946 

9015 

5620 

5640 

5660 

LDA 

CMP 

BCC 

R+5 

# >APFDATA+PFLENu 

TRAC90 

5BD8 

D006 

5680 

BNE 

TRAC80 

5BDA 

A5D8 

5700 

LDA 

R+4 

5BDC 

C922 

5720 

CMP 

# CAPFDATA+PFLENu 

5BDE 

900D 

5740 

BCC 

TRAC90 

5BE0 


5760 

TRAC80 


5BE0 

A5D8 

5780 

LDA 

R+4 

5BE2 

38 

5800 

SEC 


sbes 

E96C 

5820 

SBC 

# <PFLEN 

5BE5 

85D8 

5840 

ST A 

R+4 

5BE_7 

A5D9 

5860 

LDA 

R+5 

5BE9 

E902 

5880 

SBC 

# >PFLEN 

5BEB 

85D9 

5900 

STA 

R+5 



5920 

m 

y 




5940 

; Get road status byte 



5960 

■ 

H 


SEED 


5980 

TRAC90 


5BED 

A000 

6000 

LDY 

#6 

5BEF 

B1D8 

6020 

LDA 

(R+4),Y ; qet char # 

5BF1 

AA 

6040 

TAX 


5BF2 

BDSE5E 

6060 

LDA 

RDSTAT1,X ; qet byte from table 

5BF5 

85D7 

60£)0 

STA 

R+3 



6100 

H_ 




_6120_ 

; Turn point? 



6140 

■ 

_ 


5BF7 

2940 

6160 

AND 

#$40 5 check for intrsctn. 

5BF9 

F01B 

6180 

be6 

TRA100 

5BFB 

ASDS 

6200 

LDA 

R+l 

5BFD 

18 

6220 

CLC 


5BFE 

6D0D40 

6240 

ADC 

SCROLF 

5G01 

690B 

6260 

ADC 

#YTRKPT ; won’t ovfl 

5C03 

290F 

6280 

AND 

#$0F 

5C05 

85D9 

6300 

STA 

R+5 

5C07 

BD8C5E 

6320 

Lda 

RDSTAT2.X ;check which line turni 

5C0A 

290F 

6340 

AND 

#$0F 

5C0C. 

C5D9_ 

_6360 

. CMP 

R+5 _ 



6380 

5 


5C0E 

F0&6 

6400 

BEQ 

TRA100 ; yes - branch 

SC 10 

A5D7 

6420 

LDA 

R+3 ; else no turns 

SC 12 

29BF 

6440 

AND 

#$BF 

SC 14 

85D7 

.6460 

STA 

R+3 

5C16 


6480 

TRA100 


SC 16 

68 

6500 

PLA 


5 Cl 7 

AA- 

6520 

TAX 


scis 

68 

6540 

PLA 


SC 19 

AS 

6560 

TAY 


SCI A 

60 

6580 

RTS 


SC IB 

02000103 

6600 

DIRINC . 

BYTE 2,0,1,3,5,0 

SCI F 

0500 






6620 

* 




6640 

Values 

to add to Xpos. to 



6660 

5 move 1 

bvte left, nowhere, riqht 



6680 

5 


5C21 

FC0004 

6700 

BYTADD . 

BYTE -4,0,4 



i 
























6740 


Paths -for 


lost" vehicles are 


t 


M 


M 
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6760 ; 4 bytes long and wrap ar ound 


5C24 


6780 . 

6800 F'ATHD 


5G24. FFFFFFFF .6320 
5C28.FFQOOOOO 6840 
SC2C FEFEFEFE 6860 


.BYTE -I, -.1,-1,-1 ; dir. =0. 
.BYTE -1 ,.0,0,0 ; i 

bvTP _O: > ***% 

. P 1 I ^ i w, . . »*h» *f iA l| A* _ <| . 


5C3001010101 


5C54 O10 00000 
5C38 02020202 


.6880 

690 0 

6920 


.BYTE 



6940 ? 

6960 ; Jump path’s 
69'iO i 


5jC3C __ .. ..7000 JMF’ADD ; . used to calc. Y during jump _ 

5C3C JFEFCF AF8. . 7020 . .BYT E -2,. -4, -6, : -S , -9, -11, -1 2. -14,-16,-17 

5C40 F7F5F4F2 


5Q44 FOEF 

5C46 EEEDECeB 7040 

SC4A EBE AE 9E9 _ 

.5C4E, E8E8 

5C 50 E8E 8E8E8 7060 
5C54 E8ESE8E9_ 


BYtE -18,-19, -20 ,-21, -21, -22, -23 , -*22^-24, -24 


.. BYTE__-24^4,_r24, -24, -24.- 24.-24. -23.-23 . -22 ,-21, -21 


5C58 E9EAEBEB 
5C5C. ECEDEEEF 
5C60 F0F2F4F5 


7080 


* 


, BYTE -20,-19, -18, -17, -16, -14, -8,-6, -4,-2 




5C64 F7F8FAFC 


5C68 FE 
5C69 


7100 JNPPIC ; 


5C69 01010101 
5C6D A1010101 
5C71 0101 


7120 


used to calc pic during jump 


.BYTE 1,1,1,1,1,1,1,1,1,1 


5C73 QJO.LOIOI 
5C77 010 10100. 
5C7B 0000 


7140 


.BYTE 1. 1. 1, 1 . 1.1. 1., 0, 0, 0 


□w i> 00000000 

scsi odoooooo 

02020202 


7160 


. BYTE 0,0,0,0,0, 0.0,0, 2,2,2,: 




5C89 02020202 
5C8D 02020202 


7180 


.BYTE 2,.2,.2, 2,2,2,2, 2,.2,2,2,0 ,.0 . 0 


5C91 0202020 0 
5C9S 0OOO 
=002D 


7200 ENDJMP 

7220 ; 

7240 : 


JMPPIC-JMPADD # bytes in 
l x st s ._ . _ __ 


gf the above 


7260 ; MOVE THE PLAYERS ’ BUG’ 


SC67 

5C97 ADA84: 


7280 ; 

7300 F'MOVE 

7320 LDA BUGX 


5C9A 85D4 
5C9C ADA94: 
5C9F 85D5 


5CA1 ADD75A 
5CA4 85EE 
5CA 6 AD D 35A 
SCA9 85EF 
SCAB ADD95A 
5CAE 85D6 
5CB0 AD&C40. 


7340 

7360 

7380 

7400 

7420 

7440 


STA R+0 
LDA BUGY 
STA R+l 


player’s X . 
Y 


7460 

7480 

7500 

7520 


LDA BLSTINC 
STA R+26 
ljda_blsjnzr 

STA R+27 
LDA BUGDIR 
STA R+2 
LDA SCRSF'D 


directi on 




















7520 


LDA S CRSPD 


5 CEO ADOC4 0 
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5CB3 S5F0 7540 

7.560 i 

5CB5 ADDA5A 7580 . 

5CB8 S5DC 7600 


STA R +28 

LD A BPTHCT .i 
SJA R+8 


path count 


7620 ; 

7640 ; ftccele ratio n/d eceleration ___ . _ 

7660 5 _ ’ . _ ____ 

5CBA _ 7680 F'MOVIO __ __ 

5CBA CEDF5A 7700 _DE C ACCEN T_ ~ 

5CBD D028 7720 BNE PM0V30 . , , 

5CBF A928 7740 LDA #ACCDLY 

5CC1 8DDF5A 7760 S TA ACCCN T___ 

5CC4 AD00D 3_7780 LD A PORT A 5 check joystick . __ 

5CC7 2903. .7800 AND #3_ ; -for •forward/b ackward d ob. 

5CC9 C903 7820 _ CMP #3 _______ 


5CCB 

F01A 

7840 

BEQ PM0V30 

5 neither selected 

5CCD 

2901 

7860 

AND ,#1 

; stick forward? 

5CCF 

DOOB 

7880 

BNE PM0V20 

s no - branch 

. 5QD1. 

AE0C40 

7900 

LDX SCRSPD 

; accelerate 


5CD.4.. E8 . 7920 . _INX _ 

__ 7940 ; CPX # 128 _ ; can r t go n eq at i ve 

5CD5 E010 7960 CPX~#FWDSPD 

5CD7 FOOE 7980 BEQ PM0V30 

5CD9 4 C E45C 8000 .... J HF' PM0V25 . . . 

5CDC . __ 80 20 PM QV20 . .. _ _ „ _ _ 

5CDC AE0C40_.8040 . LDX .SCRSPD ; d.ecel erate __ _ 

5CDF CA _ 8060 DE X___ 

80,8.6 l CPX #127 5 can’t go positive 

5CE0 EOFO 8100 CPX #BWDSPD 

5CE2 F003 _8120 BEQ PMQV30 __ 

5CE4 _ 8140 PM0V25 __ 

5CE4'8E0C40_ 8160 _ STX SCRSPD 

~ _ 8180 ; ___ 


8200 ; JUMPS 

8220 j 

5CE7 8240 PM0V30 


5CE7 

AEE05A 

8260 

L.DX 

JMPNDX 

5^ 

iump in proqress? 


5CEA 

10 IB 

8280 
8300 ; 

BPL 

PM0V33 

p 

ves - branch 

- - 

5CEC 

AD10D0 

8320 

LDA 

TRIGO 

» 

check trigger button 


5CEF 

F003 

8340 

BEQ 

PM0V32 

■ 

3 

branch if pressed 



5CF1 4CA95D 
5CF4 

5CF 4 AD0C40 
5CF7 1 0 03 
5CF9 4CA95D 
5CFC 

5CFC A200 
5CFE 8EE 05A 
5D01 203C66 
5D04 4C865D 


5D07 


5D07 
"DOfl 


ADDB5A 


8360 JMP PMQV60 __ ___ 

8380 PM0V32 ... . ... _ 

8400 LDA SCRSPD $ can only jump if not, may in. g. .backwards 

8420 BPL PMQV 31_ T ---- 

8440 JMP PM0V60 

8460 PMDV31 

8480_ LDX #0 _ 3 start the jump _ , » . ... ----— 

8500 SIX JMPNDX . _ ___ 

8520 JSR VWJUMP j do jump sound _ _ ___ 

.J540 J MP PM0V40 ____—-- 

8560 5 

8580 ; Update X during jump 

8600 ; __ 

8620 PM0V33 
8640 LDA SCRFLG 

_ 866 a._ BEQ PMOV34 s 


no X chanae 











* 


8680 PM0550 


5 DOC 
5D0F 
■=•1011 


5D13 

5D15 


5D19.^ 

5D1C 

5D1C 

5D1E 

5D20 

5D22 


5JD24 

5D26 

5D26 

5D29 

5D2B 

5D2D 

5D2D 

5D30_ 

5D32 

5D3S 

5D37 

5D39 


5D3B 
_5D3E 
5D41 
5D41 


20E25A 
A5D7 
->940 


ROD 7 
A908 
35DC 
4C415D 


A5EF 

C904 

9004 

C9FD 


9007 


ADD85A 

4SEF 

1014 

ADD95A 

85D6 

AD A842 

dSD4 

a9oi 

85DC 


20E25A 

4C465D 

A5D6 

8DD95A 


5D46 


5D46 


5D4B 


CEDC5A 

F003 

4C865D 


5D4E_ 

5D4E 

5D50 

5D53 

5D54 

5D56 

5D58 


SD5D 

5D5F 

5D5 F 

5D62 

5D64 

5064 

5D65 

5D67 

5D6A 

5D6A 

5D'6D 


A90C _ _ - 
8DDC5A 
E 8 
E02D 

D02B_ 

A 2 80 
8EE05A 


A201 _ 

20)0965 

B00 6 

CA 
10 F 8 
4C5D5E 

204B64 
A9FF 


8700 
8720 
8740 
8760 
8780 
8800 
8820 . 
8840 
8860 
8880 
3900 
8920 


8940 

8960 

8980 

9000 

9020 

_9040_ 

9060 

9080 

9100 

9120 

9140 

9160 


9 180 
9200 
9220 
9240 
9260 
280 


9300 

9320 

9340 

9360 

9380 

9 400 


9420 

9440 

9460 

9480 

9500 

9520 

954 0 

9560 

9580 


9600 
9620 
964 0 
9660 
~ 9680 
9700 
9710 
9720 
974 0 
9760 
9780 
9880 
9900 


3SR TRACK _ 

LDA R+3 ; check -for j umping over intrsctn 

AND #$40_.___ 

BEQ PM0332 

LDA #NPATH ; -force path if intrsctn 

_ST A R+ 8___ 2 _ 

JMP PMOV34_ . _ 

PM0332 _ _ 

LDA R+27 ‘ " 


CMP #4 


check for change of dir■ while iump 


BdC PM0333 j check for illegal track 
_ CMP tt-3 __ 


BCC PM0334 . . . 

PM0333 • _ 

LDA B L STN ZR 
EOR R+27 5 sign change? 

BPL PM0V34 ; no, ok to track - Scjftiph 

PM0334 . _____.....1__ 

LDA BUGJDIR 5 else_keep same dir. _ 

_2’.' STA R+2~". ___ _ -_ 

LDA EUGX 

STA R+0, 1 

LDA #1 

_ 8 TA R +8 ____ 


_JSR TRACK' . . __ 

jlMP. PM0342 _ __ __ 

PMQV34 _____ 

LDA R +2 
STA BUGDXR 

* 

n 


; Sequence jump pictures _ _ _ _ _ 

■ 

PM0342 _~_ 

DEC JMPCTR 5 delay between jump moves 
BEQ PM0V35 

JMP PMQV40 __„_ _ _ 


PM0V35 _ _ _ _ 

LDA ttJMPDLY _ ... 

STA JMPCTR _______ 

I NX 5 inc for"Next jump step 

CPX #ENDJMP ; end of sequence? 

_BNE PM0V45_ s no - br anch _ 

LDX #12,8 5 else cancel juror"index 

STX JMPNDX 

u 


; Check for killing ax truck 


_ LDX ttOBJ MAX-1 
PM0400 

JSR COLISN 

_BCS_ PM 0410 _ 

PM0405 

DEX 5 

B PL PM 0400_ 

JMP PM0V90 
PM0410 

. 3 SR^JTERASE ^ . 

LDA #-l_ h 


check ’em all 


.erA^'Lttie Lcuc:>: — 
arid c:. a>nc e 1 it; _ 











o 


5D6A 

5D6A, 204B64 
5 DSD A9FF 


9780 PM0410 
’.9880, _ OSS TERASE 
9900 LDA #-l 


;. erii 5 e> the. truck 
5 and cancel it 


O' - 


PAGE 4: 
TRACK 


UPN DOWN -- -for Atari systems 


D1;TRACKS.M65. 


5D6F 9DEC62 
5D72 204C66 


5D77 85D9 
5D79 A904 . 
5D7B 85DA 
5D7D 20B&5F 
5080 4C645D 


83 
5D83 


8EE05A 



5D86 
5 D86 
5D88 
5D89 
5D8C 
8 D 
90 


93 
5D?5 
5D97 
5D98 
5D9A 
5D9A 
5D9C 
5D9E 
5DA1 
5DA3 
5DA6 


A5D5_ 

IS_ 

7D3C5C 

A 8 

BD695C 

AED95A 

E003 

9003 

18_ 

6903 


85DD 

A6D4 _ 

8EA842 
A5DC__ 
8DDA5A 
4C505E 


.5DA9 

5DA9 ADDB5A 
5DAC D003 
5DAE 4C385E 

Jj)Jl_ 

5DB1 20E25A 


SOB 4 

^DBA A5D7 


9920 
9940 
9960 ; 
9980 ; 
010000 
010020 
010040 
.0.10060. 
010080 
010100 
010120 
01 0140 
.010160. 
010180 
010200 
010220 
010240 
010260 
010280. 
010300 
010320 
0103-40 
010360 
010380 
010400 
010 420 
010440 
010460 
010-480 
010500 
010520 
010540 
010560 


010580 
010600 
010620 


010640. 
010660 
010680 
010700 
010720 
010740 
010760 
. 010780. 
010800 


010820 

010840 

010860 


STA TYPE,X 

JSR TRKDIE x <3° truck die sound. 


bonus -for killing truck 


LDA #0 .. ; add 400 _ 

STA R+5 
. LDA jf.04 

STA R +6 _ 

JSR AD0P1 5 add to score 
JMP PM0405 


5. Upda te jump picture/position 


PMQV45 _ 

STX JMPNDX 
PM0V40 

_LDA R+l _ 

CLC 


s Y 


ADC JJNPADD, X 


LDA JMPF'ICjX ; get picture 
LDi BOGDIR ; modi-fy for left/ri 


CPX #3 
BCC PMQV46 
_CLC 

_ADC # 3 

PM0V46 
STA R+9 

LDX R-+Q _ 

STX BUGX_ 

_ LDA R +8 
STA BPTHCT 
JMP PMGV80 


5 set dir to display 


; update_pl ayer’s. X 


et next X position 


PM0V60 _ 

_L DA SCRF LG_; X only'ch anges 'af ter scroll 

BNE PM0V611 ’ " * 

JMP PM0V70 ; no turns if no serial 1 
PM0V611 


JSR TRACK 


PM0V61 
LDA R+3 


J5DB6 _2940_ 

5DB8 F07E 


5DBA AD00D3 
5DBD 290C 
5DBF C90C 
5DC1 D02A 


010880 

010900 


010920 
010940 
01096 0 
010980 
011000 
020 


check road status ■'returned from TRACK 


cal 12 . .. __ . - - -_ 

intersection? _ _ _ 


AND _#$4jl> intersection? _____ 

BEQ PM0V70 : branch if not a turning point 


LDA PORTA 
AND #$0C 

. C MP #$0C _ 

BNE PM0628 ; branch if turning 




Mil 

















, 15DD7 
- 5DB7 
" 5DDA 
5DDC 
5DDE 
SPEC 
5DE2 
5DE4 
5DE6 
5PE8 
5DEA_ 

5D6P 


AD0C40 

105 C_ 

A5D7 

290 8 

F056 

A5D6 

DOS'S 


E6D4_ 

4C2E5E 


SDEF 

5DF 1 

5DF4 


5DFS 


5DFE 

5 E01 

5E01 

5E0S 

5EG5 

5E07 


0025 

AD0 C40 

3 00B 

A5D7 

2902 

F03C 

A 905 

4C2E5E. 

A5D7~~~~ 

2908 

F031 

A5D.6 


014240 
011260 
014280 
_ jO 11 300 
011320 
pj1340 
011360 
011380 
011400 

- Q.11420 
01JL440 
011460 
011480 
Oil" 500 
011520 

- 011540 
_0 U560. 

011580 
011600 
011620 
011640 
.011660 
011680 
011700 
011720 
Ol1740 
011760 


814062: 

LDA 

BFL 

LDA 

AND 

BEQ 

LDA 

BNE 

INC 

INC 

JMP 


SCRSPD 
PMOV70 
R+3 
#LR 

FMQV70 

R+2 

RM0V70 

R+0 

R+0 

PM0V68 


; ... or dir 0, bwd 


_J_fu dge t o align X_ 

.-force turn 


PM0628 

AND #8 

*■ .. 

BNE PMQV64 
LDA.SCRSPD 

_DM I. PM0 V62 

LDA R+3 
AND #UR 
BEQ PM0V70 

LDA #3 _ 

„JMP PM0V68 

PM0V62 _ 

LDA R+3 _ 

AND #LR 
BEQ PMQV70 
LDA R+2 


i turning right? 

— * no - branch _ ,« 

1 . 5. goi ng -forward or b ackwa rd? 

.. . ; can make this t u rn? 

; no - branch 
_j forward, right 


5E09 C903 
5E0B POP4 
5E0D E6D4 
5E0F E6D4 


A900 

4C2E5E 


-5111 

5E13 


5819 


„5E1D 

5E1F 

5E21 

5E23 

5E26 

5E26 

5E28 

5E2A 

5E2C, 

5E2E 


AD0C40 

300B 

A5D7 

2901 

F017 

A900 

4C2E5E 

A5D7 
2904 
FOOC 
-A903 _ „ . 


011780 CMP #3 

011800 BNE PM QV63 

011820 INC R+0 

011840 INC R+0 

011860 PM0V63 _ 
011880 LDA #0 

011900 JMP PM0V68 

. 011920 PM0V64 "_ 

011940 LDA SCRSPD 

011960 BMI PM0V66 


■J— tunn ing right, bwd n e eds fudge 
correction 


; backward, right 


011960 BMI PM0V66 

011980 _LDA R+3 

012000. AND #UL 

0.12020 . BEQ PM0V70 

012040 LDA £0 

012060 JMP PM0V68 

012080 PM8V66 * 

012100_ LDA R+3 

012120 AND #LL 

012140 BEQ PM0V70 

.012160. LDA #3 _ 

012180 PMQV68 


forward, left 


; backwardleft 











5E2A FOOC 
5E2CL A 9.03 
5E2E 


V A . 


•**.V 


r-JiHJL/ ff L_J_ 


012140 BEQ PM0V70 

012160 LDA #3 

. 0 12180 P MQV 68 _ 


5- backward^ left. 
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5E2E 85D6 
5E30 A90S 
- 5E32 8DD A5A _ 
SE35 4C3D5E 
5E38 

-5E55. A5PC __ 
5E3A_8DDA5A 
5E3D 

5E3D A5D4 
5E3F SDA842 
5E42 AA' 

5E43 A5D5 


5E45 

5E48 

5E49 

5E4B 

5E4E 

5E50 

5E50 

5E52 

5E55 


8DA942 

AS 

A5D6 
8DD95A 
S5DD 

A5EE 
8DD75A 
A5EF 


012200 

012220 

0 12240 

012260 

012280 

-.012300, 

012320 

.012340 

012560 

012380 

012400 

01.2420 

012440 

012460 

012480 


5E57 8DD85A 

5E5A 20BA5F 

5E5D 
5E5D 60 


012500 

012520 

012 540 

012560 

012580 

012600 


STA R+2 
LDA #NPATH 
SJA BPIHCT 
JMP PM0V75 
PM0V70 

JLDA. R +8 _ 

STA BPTHCT 
PM0V75_ 

LDA R+0 
STA BUGjT~ 
TAX 

LDA R+.1 
STA BUG_Y 

- 1 “ _ ' 

_LDA R+2 


; change _di recti on ‘ 

5 force .path to get across .intersection' 


update 


012620 

012640 

012660 

,0126 80 

012700 

012720 

012740 

012760 

012 780 

012800 

012820 

012840 


STA BUGDIR 
STA R+9 

PliOVSQ_ 

LDA R+26 
_ STA BLSTINC 

. LDA R +27_ 

STA BLSTNZR 
S 

. 3 S R SH OCAR 

5 

PM0090 
RTS 


-display VW„ at new positi o r, 


TABLE OF STATUS BYTES FOR ROAD 

* characters 


5E5E 

■ 5E5E 80000003 
5E62 03434C81 
5E66 81808080 
.5E6A 808000Q0 
5E6E 0303434C 
5E72 11111111 


012860 
012880 
012900 
.012920 
012940 
. 012960 
012980 
013000 
013020 
015040 
0 13060 
615080 
013100 
013120 
015140 
013160 
,013180 
015200 


bits; 

Road choices 
O JJp per Lefty 


1 Upper .Right 

2 Lower Left 

3 L ower Riqht 


% 


4, 5 


grade 

01 uphill 


-- 10 downhill 

_i ntersectio n_ 

=-0 . no intersct. 
=1 intersection 
—- f char . which 


vehicles cannot be on 
Thpii if bit 0 =0 „ ground 
— — rJ _»... water 


RDSTAT1 

.J3Y JLE_J_2Sj jOjlP j_3_, 5,1 43, $4C, 129 


-013220 .BYTE 129,128,128,128,128,128,0,0 

013240 .BYTE 3,3,*43,'»4C;i6'+l,"n, + 17i6il7l64T 



m 





R 


1 


Q 




S 


Q 

□ 

8 


% 

n 

* 


% 

% 

% 


M 


H6| 


to 


$ 




lS2l 


p3' 




>r 


5E7A 11802222 
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5EB8 _000_0 
ipppi 


013500 
013520 UL 


$01 



01.3540 

UR = 

$02 




013560 

LL - 

$04 


w * l '% 
v * 


013580 

LR- = 

$08 


•yy » 


0 13600 j 


013620 s 


013640 ; 


5EBA 


013660 ; 

013680 5 DRAW THE CAR AS A P/M GRAPHIC 
0137 00 : Xrea and*Yreq hold car’s 
013720 SHOCAR 


_X_„_Y_ 


— 

-- 

013740 

013760 

« 

J 

Direction to d 

5EBA 

8 A 

013780 


TXA 


f! 

5EBB 

is 

013800 


CLC 




6930 

013820 


ADC 

#48 


5EBE 

8DE55F 

013840 


STA 

BLJGHO 

N 

*1 

5EC1 

8DE65F 

013860 


STA 

BUGH1 


5EC4 

6908 

013880 


ADC 

#8 


5EC6 

SDE75F 

013900 


STA 

BUGH2 


5EC9 

8DE85F 

013920 


STA 

BUGH3 




013940 







013960 


Update Y 




013980 

5 




5ECC 

98 

014000 


TYA 


; 

5ECD 

0A 

01 4020 


ASL 

A 


5ECE 

18 

014040 


CLC 



__ 


014060 





5ECF 

6920 

014080 


ADC 

#32 


5ED1 

A 8 

014100 


TAY 



5ED2 

CCDD5A 

014120 


CPY 

GLDBUGY 

; 

5ED5 

DOOA 

014140 


BNE 

SH0C03 

? 

5ED7 

A5DD 

014160 


LDA 

R+9 

3 

5ED9 

CDDE5A 

014i80 


CMP 

□LDBDIR 


5EDC 

D02D 

014200 


BNE 

SHOC07 

? 

5EDE 

4C3F5F 

O14220 


JMP 

SHOC2C 




014240 

ji 






014260 

H 

erase old BUG 


convert to P/M X coord, 


set X 


m 



5EE7EE ^ / * ? 2523 # ' ? S 

013280 

. BYTE 

32+2,32+5,32+5,32+5,128,128,128,128 

-- 

-- 

— 

l 

5E82 80808080 








5E86 80808080 

013300 

. BYTE 

128,128.128.128.128,128 





5E8A 8080 









O13320 

; Second table indicates which line „ £ * 






013340 

; o-f char, turnina ot. occurs " 3 





5E8C 

013360 

RDSTAT2 






5E8C 00000000 

013380 

. BYTE 

0,0,0,0,0,15,0,0 





5E90 0OOF0000 







v 

5E94 00000000 

013400 

.BYTE 

0 , 0 , 0 , 0 , 0 , 0 , 0,0 





5E98 POOOOOOO 








*""■ 5E9C 00000F00 

013420 

-BYTE 

0,0,15,0,0,0,0,0 



V 


5EAO 00000000 








5EA4 00000000 

013440 

. BYTE 

0 , 0,0 , 0 , 0 , 0 , 0,0 



- 1 


5EA8 00000000 








5EAC 00000000 

013460 

.BYTE 

0 , 0 , 0 , 0 , 0 , 0 , 0,0 



— 


5EBP 00000000 








5EB4 00000000 

013480 

-BYTE 

0 , 0 , 0 , 0 , 0,0 



1 


24! 


#' 

# 

m 




33 


134 


33 


36! 


PA 


38| 


convert to F'/M Y coord. 




in Y r 


yes 


erase and redraw 
change in direction? 


■w 

f 

1 


yes — redraw but don’t 
exit without rewriting 




erase 

P/M 
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5EDE ‘4C3F5F 


014220 


SHUC20 


01424a _ _ 

014260 ; erase old BUG 


exit without rewriting P/M 
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5EE1 

5EE1 


5EE2 

5EE5 

5EE8 

5EEA 

5EEC 

5EEC 

5EEF 

5EF2 

5EF5 


5_Ef8 

5EFB 

5EFE 

5F01 

5F04 

5 F05 

5F06 

5F08' 

5F0B 

5F0B 
5F0D 
5F0F 
5F1 1 
5F14 
5F14 
5F17 
5F18 
5F1B 
5F 1C 
5F1D 


98 


ACDD5A 
8DDD5A 
A 900 
_A205 _ 

990074 

991B74 

*990073 

991B75 


990076 

991674 

9900 77 

991B77 

C 8 

CA _ 

D0E4 

ACDD5A 


A5DD 

C906 

9 003 

~4C425F 

8DDE5A 

AA 

BP43 5F 

AA 

18 

6920 ' 
85D4 


5F21 , _ 


5F21 BDE95F 
5F24 J990074 


014280 

014300 

014320 


014340 
014360 
01 4380 
014400 
014420 
014440 
014460 
014480 
014500 


014520 
014540 
014560 
014580 
014600 
014 620 
014640 
014660 
014680 
014700 
014720 
014740 
014?60 
014780 
014800 
014820 
014840 
014860 
014880 
014900 
014920 
014940 
014960 
14980 


-015000 

015020 


. e r ase 5 top andbottom byte of old image 


SH0C03 

TYA 


LDY 0LDBUGY 

STA 0LDBUGY *; save new Y pos 

- LDA #0 ___ 

. LDX .#5_ 5 _erase 5 top an 

SH0C05 . _ 

STA PO.Y 
STA P0+27,,Y 
STA PI,Y , 

STA PI4-27.'Y 


STA P2,Y _ 

STA P2+27.Y 

STA P3.Y _ 

STA P'3+27, Y 
INY 

PEX _ 

BNE SH0C0 5 ‘_ 

LDY OLDBUGY ; restore new Y 
SH0C07 


LDA R+9 ; form index to VW P/M data 

_ CMP #6 , ; che ck dir . ***** 

B CC SHQC 08 . _ 

JM P SHQC3 0 ; don’t draw invalid dir. 
SH0C08 

STA.., 0LDBDIR ' 

TAX " * ; 

LDA M32TBL .X ; #32 . *’ 

_ T AX __ 

CLC _ * " V ‘ _ _ 

ADC #32 _ 5 ttbvt.es per F/ M 

8.TA M±Q 

5 ••••■ v- 

SHOC10* ' 


LDA BU GPO.X 

STA PO .Y .' .. 


V 
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bh AB 990076 


5FAE 60 


016520' STA P2,Y 
0X654CL WHEE20 
_016560 RTS 
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5FAF 

5FAF 1 A 1B1C1D 
5FB3 1B1C1D1E 
5FB7 1A1B1C1D 


SFBB 

5F8B. 

J5FBE 

5FC0 

5FC3 

5FC5 

5FC8 

5FCA 

5FCC 

5FCE 

5FD0 

5FD2 

5FD5 

5FD7 

5FDA 

J5FDC 

5FDF 

5FE1 

5FE4 


5FE5 

5FE6 

5FE7 


5FE8 


AD0240 

85D6 

AD0340 

85D7 

AD6440 

85D8 

A 9BC 

85D4. 

A947 

85D5 _ 

203C53 
A5D8 
8 D0240 
A5D7 _ 
8D034O 
A 5DB 
8D0440 
60 


016580 
016600 
016620 
016640 
016660 
016680 
oi6700 

016720 
016740 
016760 
016780 
0 16800 
. 016820 
.016840 
016860 
016880 
016900 
016920 
016940 
016960 
016980 
017000 
017020 
017040 
017060 
017080 
.Qi 7100 
017120 
017140 
017160 


017180 

0172.00 

017220 


017240 

015760 

0900 


WHLPOS ; Y offset for wheel marks 

- - ■ BYTE ' 26.27.28.29 ■ l evel_*_' 

/BYTE 27,28,29,30 « up 
.BYTE 26,27,28,29 3 down 


ADD TO PLAYER1»S SCORE 


ADDfeX 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
S TA 
LDA 
. STA 
JSR 
LDA 


PSCQRO 

R-f-2 

JPSC0R1 

R+5 _ _ 

PSC0R2 

R+4 

# KHM E M+6 
R+p 

# >HMEM+6 

R+l _ 

ADDSCOR 

R+2 

Rscqro 

R+3 

P SC0R 1 

R+4 

PSC0R2 


BUGJHO .*= #+1 
BUGH1 *=. * + l_ 
BUGH2 #= * + l 


BUGH3 * + l 

. INCLUDE %D2: PMCAR., M65 
.PAGE "PM OATA" 


DliT RACKS.M65 
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5FE9 


1040 



1060 

5FE9 

5FED 

00010307 

070F3B3B 

1080 

5FF1 

J5FF5 

0B39697D 

75171B1B 

1.100 

5FF9 

584F4F4F 

1 120 

5FFD 

0AO30101 


6001 

04040404 

1140 


1000 $ DATA. FOR PLAYER’S C_AR 

1020 ; CAR IS A PLAYER MISSILE GRAPHIC 


PO LEFT, LEVEL 

.BYTE 0,1,3,7,7,15,59,59 


. BYTE 11,57,105,_125 ^117, 23,27 ,_27 
■ BYTE 88.79.79.7 9.1 0,3,1.1 _ 


6005 04040000 


.BYTE 4,4,4,4,4,4,0,0 


6009 307E7E38 
60OP 595F5F37 


1160 ; P0„ LEFT, UP. 

1180 , BYTE 48, ‘l 26, 126, 56,57,63, 63,.55 


6011 1B193D2D 
6015 2C280A0A 
6019 02050506 


1200 


60ID 060F0303 
602.1 07050504 
6025 04040000 


1240 


.BYTE 27,25,61,45,44,40,10,10 

■ BYTE 2. 5, 5. 6.6. 15.3.3 __ 

.BYTE 7,5,5,4,4,4,0,0 


00000001 
602D <5303070 7 


1260 ; PO LEFT, DOWN 

1280 .BYTE 6,0,0,1,3,3,7,7 


60 31 07 0D0909 
6035 J29393B0F 
6039 547B7F7F 


1300 


1520 


603D 1B131151 
6041 44444404 
6045 04040000 


1340 


..BYTE 7, 13,9,9,9,57,59^15.. 

.BYTE 52.12 5 ~127.127.27 . 19.17.81 
.BYTE 68,68,68,4,4,4,0,0 


6049 00 070F 0F 
604D 1F1F1F3F 


1360 j PO. 


1380 


..RIGHT, LEVEL. 

BYTE 0,7, 15, 15, 31., 31,31,63 _ 


6051 

*33212121 

1400 

,D’yte 

6€^5 

2121217F 



6059 

55D4FFFD 

1420 

-BYTE 

605D 

3CFDC1C1 



6061 

OOOOOOOO 

1440 

.BYTE 


D’YTE *51,33, 33,33,53, 33,33, 127 


6065 00000000 


6069 0C1F1F1C 
606D 11F1F5F5F 


1460 ; PO RIGHT, UP 

1480 .BYTE 12,31,31,28,31,31,63,63 


9 

0 


6071 3F3F3F3F 
607.5' 3F3F3321 
6079 21617FD5 


1500 


607D D5FEFDFD 
6081 FDC1C100 
6085 00000000 


1540 


.BYTE 63,63,63,63,63,63,51,33 
.BYT E 55.97, 127,21 5.2 15,254,25 5, 255 
.BYTE 253,193,193,0,0,0,0,0 


6089 00000007 
608D 0F0F1F1F 


1560 

1580 


PO RIGHT, DOWN 

.BYTE 0,6,0,7,15,15,31,31 


1600 


.BYTE 51,33,33,33,33,33,33,127 


6091, 33212121 
6095 2121217F 

6099 5554FFFF 1620 _.BYTE 85, 84.-.?55, 255 ,_253, 253193, 193 


609D FDFDC1C1 
60A1 OOOOOOOO 
_ 60A5 .OOOOOOOO 

60A9 


1640 .BYTE 0,O,0,O,O,O,0,0 

1660 BUGP1 








60AI 00000000 1640" 

60A5. XlOOOOOOa 

60A9 _ 1660 BUGP1 


BYTE 0,0,0,0,O,0,0,O 
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60A9 

6 0AD 

6 OBI 

60B5 

60B9_ 

60BD 

60C1. 

60C5 


00000001 


1680 5 
1700 


03033331 


PI LEFT, LEVEL 

.BYTE 0,0,O, J ,3,3,51,49 


11063672 

9AF8ECEC 

EFF6F6F3 

F76DOEOE 

OFOF OFO F 

0F0F0706 


1720 


BYTE 17,6,54,414,154,248,236,236 


1740 


.BYT E 239. 246.246.243.24 7.109. 14;14 


1760 


_. BYTE 15, 15,15, 1.5, 15,J5,7,6 


60C9 

60CD 

_60D1 

60D5 

60D9 

60DD 

60E1 

60E5 


00062624 

16505158 

6C646A7A. 

7B7F7D3D 

ODOEOEOB 

OBOAODOD 

ODOEOEOF 

0F0F0706 


1780 ; 
1800 


PI LEFT, UP 

. BYTE 0,6,38,36 ,,22,80,81,88 


1820 


.BYTE 108,100,106,122,123,127,12 5.61 


1840 


BYTE 13.14.14. 11.11.1 0,13,13 


1360 


BYTE 13,14,14,15,15,15,7,6 


60E9 

60ED 


60F1 
60F5 
6 0F9 
60FD 
-6101. 
6105 


00000000 

00010303 


©1000002 

06363410 

0B24769B 

F5ECEEE E 

FFFFFFFF 

6F0F0706 


1880 ; 
1900 


F'l LEFT, DOWN 

.BYTE O,0,0,0,0j1,3,3 


1920 


>BYTE 1,0,0,2,6,54,52,16 


1940 


.BYTE 11,36 .118.155.245.236.238 


1960 


. BYTE .255, 255, 255,255, 11 lj 15*7,.6. 


6109 0000070F 
61OP OEIFIF13 


-6111 .0101OOOE 
_6J15. 1E1E1E00 
6119 2A2B0082 
61ID C3023E3E 
6121 FEFFF1F1 
6125 F1F06060 


1980 5 
2000 


PI RIGHT, LEVEL 

.BYTE 0,0,7,15,15,31,31,19 


. - BYTE 1 ,.l, 0,14,30,30, 30, 0 


■BYTE 42.43,0,130,195,2,62,62 


2060 


.BYTE 255,255,241,241,241,240,96, 96 


6129 00030302 
612D 00071F1F 


6131 3F3F3F1E 
6135 00000C1E 
- 6.1.39 1E1E002A 
613D 2A01C3C3 
6141 C33E30F1 
6145 F1F1E160 


2080 i 
2100 


PI .RIGHT UP 
„J BYTE 0,3,3, 2,0,7 ,31 .3£ 


2120 


.BYTE 63,63,63,30,12,0,12,30 


- _... B YTE 30.30. 0 .42.42. 1. 195. 195 


BYTE 195,62,48_, 241,241,241,2 25.96 .. 


6149 00000000 
614D 070F0F13 


2180 ; 
2200 


PI RIGHT, DOWN 

.BYTE 0,0,0,0,7,15,15,19 




615D C3023E3E 
6161 FFFFFDFD 
6165 F1F0E060 . 
6169 


BYTE 255,255,253,253,241,240,224,96 


a i ao OOEOFO crr ' 


2280 BUGP2 

2300 ; P2 LEFT, LEVEL 

o-Tort BYTE 0.224.240. 240. 24R-24R. 248 ^ 


















‘1 

<•-/ ", 



61C9_ 0 080C0 E0. 
A1CD EOFODCDC 
,61D1 DC>9C96BE 
him AEE8D3D8 
A1D9 1AF2F2F2 
61DD 50C0808Q 
61E1 202 02020 
6JLE5 20200000 


6lE9 
61 ED 
_61F1_ 
61F5 
61F9 
61FD 
6201 
6205 

6209 

620D 

6211 

6215 

6219 


62 ID 
6221 


9CFCF8EC 

D898BCB4 

34145050 

40A0A060 

60F0C0C0 

fe0A0A020 

20200000 

00000080. 
C0C0E0E0 
E0B09090 
909CDCF0 
2CDI 


D8C8888A. 

22222220 

20200000 


2640 .BYTE 208, 156, 150, 190, 174,232 ,2 16 |:2i 6 


. BYTE 26.242.242. 242B OjAgg.,. 12.9.i. 1.28- 

I 7BYTE .32,32^32,32,32,32,O, 0-- _ 

5 P2 RIGHT, UP ' . . *■ 

.BYTE 12,126,126,28,156,252,252^36 

71 Tbyte 21 aTTls? Lt ea* 1 so, 52 ,'2o JL ao J m._ 7 

.BYTE 64, 1 60. 160.96,9 6,,240, 192,192- 

.BYTE 224,160,160,32,32,32,0,0 

“P2 RIGHT, DOWN_ _ _ - _ 

BYTE 0,0,0,128, 192, 192,224^224 

Tbyte 224 ,176, 144 , 144 , 144 , 156 , 220,240 


2680. 

2700 

2720 


2760 


2800. 

2820 


6229 


622D F0F8F8C8 
6231 30800070 
6235 7B78Z800„ 
6239_54D40041 


2900 

2920 

2940 

2960 


■BYTE 4 4 .222.254.254 ,21 6,200,136,15 3 


.BYTE 34,34,34,32,32,32,0,0 

■BUGP3 

; P3 LEFT, LEVEL 

.B YTE 0.0. 224 .240.240,24 8 ,248,200 

■ BYTE 128, 128,0,112, 120, 120,120,0 

RVTF R4. 2 1 2 . O T 65 ■ 195.64, 124-,33?.4_ 

































2960 




FMCAR.M65 

















A 


\ 
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MOVE 
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D2;MOVE.M65 


% 

n 






'D 

■3) 

3) 

£ 




1020 ; 
1040 5 
1060 ; 


UP'N 

MOVE 


DOWN 

M65 


=000E 

= oboF 

=0014 


1080 
1100 ; 

1120 OB JNAX 
1140 YCRSH = 
1160 XCRSH = 
1180 QVRLF'X 


TABLES FOR OBJECT ENTRIES 


14 

15 


max # of obiects on screen _ 

Y tolerance on collision detect. 


20 


overla p JtoJL erance on X coord. 


— 0014 


62E9 

62EA 


1200 OVRLPY » 
1220 XPRIME *= 
1240 REDRAW *= 


10 
* + 1 
* + 1 


62EB . 

62EC 

62F5 


62FE 

6307 

6310 


1260 ONTOP,#= * + 1 
1280 TYPE *= *+9 
JL300 X F'OS *=_ #+9_ 
1320 
1340 


* _ f 

r edraw overlapped objec t -flag __ 

obj# of object on to p of .over1apped_ 


631 9 

/TOO 

632B 


6334 

633D 

6346 


YPOS *= *+9 
DIR *= *+9 

1360 SPEED *= Jf±9_ 

1380 SPDCTR *== *+9 
1400 MODE #= *+9 
1420 PATH *= *+9 
1440 LASTIfvIC *= *+9 
1460 LASTNZR *= *+9 
14&Q QV R LAY *= *+ 9 


634F 


1 500 DRAWN *= *+? ' .. 

1520 5 ... 

1540 s ROUTI N E TO MOVE A LL OBJECTS... IN. 


, Q.W.v 


_6358 
635A 
635A 


A201 


BDEC62 


1560 

1580 

1600 

1620 

1640 

1660 


THE OBJECT TABLE 


MOVE 


. LDX 
MOVE10 
LDA 


#OBJMAX~l_ max # ob i ects 


TYPE.X 


635D 

635F 


1004 


CA 


1680 

1700 

1720 


K6| 


’■ 0 , h 






6360 lpF8__ 

1740 

6362 60 

1760 

6363 

1780 

6363 BD1063 

1800 

6366 1005 

1820 

6368 49FF 

1840 

636A 18 

1860 

636B 6901 

1880 

636D 

1900 

636D 18 

1920 

636E 7D1963 

1940 

637f 9D1963 

1960 


BF'L MOVE 16 
MOVE15 

DEX _ _ 


ac tive e ntry? 
yes - branch 


ap.** 


BF'L 

RTS 

MOVE16 
LDA 
BPL 
EOR 
CLC 
ADC 

M0V F.2 0 

CLC 

ADC 

STA 


MOVE10 


SPEED,X 
M0VE20 
#$FF _ 

#1 * 


time to move? 


6374 90E9 


6376 A9FF 


19 SO 
2000 
2020 


BCC 


SPDCTR,X 
SPDC TRX 
MOVE15 ' 


no move 


branch 


LDA #$FF 


5 def ault -flag no redraw 


6378 8.DEA62 
637b A001 
637D 207164 


2040 

2060 

2080 


STA 

LDY 

JSR 


REDRAW 

#QBJMAX- 

OVRLAP 


check for overlaps 




6380 COFF 
6382 F03F 
6384. B9FE62 
6387 38 


2100 
2120 
2140 
2160 


CPY 

BEQ 

LDA, 

SEC 


#«FF 
MOVE25 
YPOSY. 


none - branch 

,check k 















d 

c 



€ 

i 

€ 

*• 

%*> 

I 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 



6380 

COFF 

2100 

CPY 

#$FF 




6382 

F03F 

2120 

BED 

M0VE25 ; none - branch 




6384 

B9FE62 

Q 

LDA 

YPQS,Y ; check f_or interfere wvth. „tr_ack^ ^ ^ ^ , 




6387 

38 

2160 

SEC 
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A 

V, 

MOVE 




D2s MOVE.M65 


J 

T 

2 

3 

* « 




* *"»*&* 


T 

2 

3 

4 

6388 

FDFE62 

2180 

SBC 

YF'OS, X 


4 

5 

638B 

1005 

2200 

BPL 

M0VE22 


5 

6 

638D 

49FF 

x. U 

EOF: 

#$FF 


6 

7 

638F 

18 

2240 

CLC 



7 

8 

6390 

6901 

2260 

ADC 

#1 


8 

9 



2280 

M0VE22 

• *. 


9 

G 

6392 

C909 

2300 

CMP 

#OVF:LPY—YTRKPT 


10 

n 

6394 

BO 1A 

2320 

BCS 

M0VE23 ; doesn’t interfere 


!l 

12 

6396 

ECEB62 

2340 

CPX 

ONTOP 


12 

13 

6399 

DO 1A 

2360 

BNE 

MQVE24 ' "T” 


>3 

14 

639# 

8CEA62 

2380 

STY 

REDRAW 


u 

15 

639E 

20095A 

2400 

JSR 

ERASE 


'5 

16 

63 A1 

8EEB62 

2420 

STX 

ONTOP 


16 

17 

63A4 

AEEA62 

2440 

LDX 

REDRAW 


17 

18 

63A7 

20095A 

2460 

JSR 

ERASE 


18 

19 

63AA 

AEEB62 

2480 

LDX 

ONTOP- 


19 

20 

63AD 

4CC663 

2500 

JMP 

M0VE26 


20 

21 

l>3B0 


2520 

M0VE23 

3 , 


21 

77 

<h3£)0 

ECEB62 

2540 

CPX 

ONTOP ; if this obi on top no need to erase 


22 

23 





other 


23 

24 

63B3 

FOOE 

2560 

BED 

M0VE25 


24 

25 

63B5 


2580 

MQVE24- 



25 

26 

63 BS 

8EEB62 

2600 

STX 

ONTOP .. * 


26 

27 


98 

2620 

isajEHT! 



27 

25 

63B9 

AA 

2640 

TAX 



28 

29 

63BA 

20095A 

2660 

in 

zo 

ERASE ; erase other 


29 

30 

63BD 

8EEA62 


STX 

REDRAW 


3C 

31 

63C0 

AEE862 

2700 

LDX 

ONTOP *' 


31 

32 

6 SCS 


2720 

M0VE2S 



32 

33 

63C3 

20095A 

2740 

Tsr 

ERASE s erase this truck 


33 

34 

63C6 


2760 

M0VE26 



34 

35 

63C6 

BCFE62 

2780 

LDY 

YF'OS, X 3 move it 


35 

36 

63C9 

BD1063 

2800 

LDA 

SPEED , X 


36 

37 

63CC 

1004 

2820 

JBPL 

M0VE30 


37 

38 

63CE 

C8 

2840 

INY 



38 

39 

63CF 

4CD363 

2860 

JMP 

M0VE40 , 


39 

40 

63D2 


2880 

M0VE30 



40 

41 

63D2 

88 

2900 

DEY 



41 

42 

63D3 


2920 

M0VE4O 



12 

I 

63D3 

C060 

2940 

CPY 

#96 ; get rid of trucks thfet move, exf ¥ screen 


43 

1 

63D5 

B05E 

2960 

BCS 

M0VE50 


44 

45 

63D7 

84P5 

2980 

STY 

R+l 


45 

46 

63D9 

BDF562 

3000 

LDA 

XP0S,X _ 


46 

47 

63DC 

C9A0 

3020 

CMP 

# 160 


47 

40 

63DE 

B055 

3040 

BCS 

M0VE50_ ___ 


48 

49 

63E0 

85D4 

3060 

STA 

R+0 


49 

50 

63E2 

BD0763 

3080 

LDA 

DIR, X , . 


50 

51 

63E5 

85D6 

3100 

STA 

R+2 . - 


51 

52 

63E7 

BD2B63 

3120 

LDA 

PATH,X _ . „ 


52 

53 

63EA 

85DC 

3140 

STA 

R+8 


53 

54 

63EC 

BD3463 

3160 

LDA 

LASTING,X 


54 

>5 

63EF 

85EE 

3180 

STA 

R+26 * , 


55 

56 

63F1 

BD3D63 

3200 

LDA 

LASTNZR, X . . ■ , 


56 

k 

63F4 

85EF 

3220 

STA 

R+27 


y 



4) 

* 

#} 

#) 

#} 

4 ) 

•) 

#> 

4 ) 


J 


#} 

#) 

* 

m 

« 

m 

« 


63F6 BD1063 3240 LDA SPEED,X 

$ _ 63F9 S5F0 3260 STA R+2S 

3 ? RO » 
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0E25A 


5500 


JSR TRACK 


r 
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MOVE __ 


3320 ; 


3340 ; update new parms 


6 


3360 




7 

63FE A5D4 

3380 

LDA 

R+0 


8 

6400 9DF562 

3400 

STA 

XPOS,X 


9 

V, 6403 ASD5 

3420 

LDA 

R+l 


10 

6405 9DFE62 

3440 

STA 

YPOS.X 


11 

6408 A5D6 

3460 

LDA 

R+2 


12 

640A 9D0763 

3480 

STA 

DIR. X 


13 

6400 A5DC 

3500 

LDA 

R+8 


14 

r* 640F 9D2B63 

i mm 

STA 

PATH,X 


15 

It 6412 A5EE 


LDA 

R+26 


16 

6414 9D3463 

3560 

STA 

LASTINC,X 


17 

6417 A5EF 

3580 

LDA 

R+27 


18 

6419 9D3D63 

3600 

STA 

LASTNZR.X 


19 


3620 

u 

ft 



!0 

641C ADEA62 

3640 

LDA 

REDRAW 


21 

64IF 3009 

3660 

BMI 

Hove45 


n 

6421 AEEA62 

3680 

LDX 

REDRAW 


23 

6424 20C059 

3700 

JSR 

DRAW 


24 

6427 AEEB62 

3720 

LDX 

ONTOP 


25 

642A * 

3740 

M0VE45 



26 

642A. 20C059 

3760 

JSR 

DRAW ; 

draw at new position 

27 

642D 8EEB62 

3780 

STX 

ONTOP 


28 

6430 B003 

3800 

HCS 

M0VE50 ; 

draw not successful - 

29 


3820 

JMP 

MOVE15 * 


30 

6435 

3840 

M0VE50 



3! 

6435 A9FF 

3060* 

LDA 

#~1 ; 

cancel object 

32 

6437 9DEC62 

3880 

STA 

TYPE,X 


33 

, 643A 204064 

3900 

JSR 

TERASE 


34 

643D 4C5F63 

3920 

JMP 

MOVE15 


35 


3940 

5 



36| 


3960 

: INIT THE OBJECT 

TABLES 

37 

'■v 

3980 

M 

!» 



38 

64.40 

4000 

IOBJTB 



3^ 

•> 6440 A9FF 

Kama 

LDA 

#-l 3 

inactive flaq value 

40 

6442 A201 

4040 

LDX 

#0BJMAX-1 

; # entries 

41 

6444 

4060 

IOBJ10 



42 

6444 9DEC62 

4080 

STA 

TYPE,X 


43 

6447 CA 

4100 

DEX 



44 

* 6448 lOFA 

4120 

BPL 

IOBJ 10 

* 

45 


4140 

« _ ___ . . 



46 

644A 60 

4160 

RTS 



47 


4180 

5 



48 


4200 

; Erase 

truck accordinq to 

49 


4220 

; ONTOP 

priority 


50 


4240 

N 

fl 


* 

51 


4260 

TERASE 



52 

644B ECEB62 

4380 

CPX 

ONTOP 


53 

644E F01D 

4400 

BEQ 

TERA10 


54 


4420 

s 



55 

6450 8EE962 

4421 

STX 

XPRIME 


2 

6453 8A 

4422 

TXA 



1 

6454 4901 

4424 

EOR 

#1 



6456 8DEB62 

4426 

STA 

ONTOP 



6459 AA 

4440 

TAX 




645A J20095A 

4460 

-JSR 

ERASE 

■t- ■*=• M ~ » >*• 


645D AEE962 

4480 

LDX 

XPRIME 



r 


D2:MOVE.M65 



Moore Business 


























i n ui--i t ur 




f 

I 

%' 

k 

k' 

k 


4 


m 


6459 AA 
645A 20095A 
645D AEF9A? 


4440 

4460 

4480 


TAX 

JSR _ERASE 
L-DX XPRIME 
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f 

2 

3 

* 



4 

6460 20095A 

4500 

JSR ERASE 

5 

6463 AEEB62 

4520 

LDX 0NT0P 

6 

6466 20C059 

4540 

JSR DRAW 

7 

6469 AEE962 

4560 

LDX XPRIME 

8 

646C 60 

4580 

RTS 

9 

6460 

4600 TERA10 

10 

646D 20095A 

4620 

JSR ERASE 

1 1 

6470 60 

4640 

RTS 

12 


4660 s 


13 


4680 ; 


14 


4700 ; 

See i-f trucks, over 1 

_ . _ . „ 

4720 : 

ENTER: 

16 - 


4740 ;. 

Yreq = start inde 

17 


4760 5 

EXIT: 

•8 


4780 ; 

Yrea = # of first 


D2: MOVE.M65 


6471 

6471 86 E 6 


4800 

4820 ; Uses R+18 

4840 l _ 

4860 OVRLAP 
4880 STX R+18 

4900 


$FF it no overlap 


25 

6473 

4920 

0VRL05 


26 

6473 B9EC62 

4940 

LDA 

TYPE, V' 

27 

6476 3029 

4960 

BMI 

0VRL4O 



4980 

J. .LDA 

-BRAWNY- 

2 


5000 

l; BE.Q 

0VRL.4Q 

3C 

6478 C4E6 

5020 

CPY 

R+18 

31 

647A F025 

5040 

BEQ 

0VRL40 

I 32 ! 

5060 

n 

? 


33 

647C B9F562 

5080 

LDA 

XPOS^Y 

34 

64.7F 38 

5100 

. SEC 


35 

6480 FDF562 

5120 

SBC 

XPOS,X 

36 

6483 1005 

5140 

BPL 

0VRL10 

37 

6485 4-9FF 

5160 

EOR 

#$ff 

38 

6487 18 

5l 80 

CLC 


39 

6488 6901 

5200 

ADC 

#1. 

■9 

648A . 

5220 

OVRL10 


41 

648A C914 

5240 

CMP 

#0VRLPX 

42 

648C BO13 

5260 

BCS 

0VRL40 

43, 

5280 

■ 


4* 

648E B9FE62 

5300 

LDA 

YPOS,Y 


6491 38 

532Q_ 

. _S£C_ 


46 

6492 FDFE62 

5340 

.. _3BC 

YF'O.S ,.X_ 

47 

6495 1005 

5360. 

_ BPL 

0VRL20 

48 

6497 49FF 

5380 

EOR 

#$FF 

4 ; 

6499 18 

5400 

CLC 


50 

649A 6901 

5420 

ADC 

#1 

51 

649C 

5440. 

0VRL20 


52 

649C.C914 

.5460 

CftP 

SOVRLF'Y 

53 

649E BOO1 

5480 

BCS 

0VRL40 

54 

64A0 60 

5500 

RTS 


S5 

* 64 A1 

5520 

QVRL40 


56 

64A1 88 

5540 

DEY 


y 

64A2 10CF 

5560 

BPL 

0VRL05 


64A4 60 

5580 

RTS 




5600 

? 




,5620 

« 



$ check -for entries 


ca nj 1 1 ovrlap self 


no o vrlap 


.-f ound an overlap 












I 
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MOVE 


UPN DOWN 
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* 





- - 

5660 

5480 

5700 

j Enter: 

; TPNDX = # of type to injjt <0-5) 

; _ . TPROB = (ROUND-1)*6 


5720 

5740 

5760 

; R+0,1,7,8, 

; USES: 

B 

9,10 

_ 64A5L „ 

_ 5780. 

__ 5800 
5820 

TINIT 
; Check 

probabl i t i es. to see if to init. truck_ 

* 64A5 ACD865 

5840 

LDY 

TPNDX 

; get index truck parameters 

64A8 A206 

5860 

LDX 

#NTYPES 


64AA 

5880 

TIN!10 



_. 64AA B9AE65 

5900 

LDA 

TPRQB,Y 

; get probability of init 

.64AD F005 

5920 

BEQ 

TINI15 


64AF CD0AD2 

5940 

CMP 

RANDOM 

s init this tvoe? 

64B2 BOOS 

5960 

BCS 

TINI20 

3 yes — branch 

64B4 

5980 

TINI15 



64B4 C8 

6000 

INY 



64B5 CA. 

6020. 

ppx 



64B6 DOF2 

6040 

BNE 

TINUO 


64B8 60 

6060 

RTS 


; no inits this time 


6080 

3 




6 tOO 

; Find an open slot 

... •.■... 

6120 

• 

■ ■ ..—. w 



64B9_ 

64 B9 A201 

~64BB 
64BB BDEC62 
64BE 30 04_ 


6140 TINI20 _ 

.4140 .. LDX #0BJMAX-1 . 

6180 ;; LDX #1_ a : i s DEBU G 


6200 

6220 

6240 


64C0 CA 
.44C1.XQF8, 
64C5 60 


6260 

6280 

6300 


TINI30 

LDA TYPE,X 

_BMI T INI40 

DEX 

BJPL TINI30 
RTS 


6320 

6340 

6360 


; no open slots 


; OnTy' init if VW overtakes/overtaken 


64C4__ 

64C4 98 
64C5 48 


6380 

6400 

6420 


TIN140 
TYA 
PHA 


6406 8 A 

6407 48 


6440 

6460 

6480 


TXA 

8 ha 


6500 

6520 


64C8 

AD0AD2 

6540 

LDA 

RANDOM ; 

64CB 

39CC65 

6560 

AND 

TMAXSP,Y 

64CE 

18 

6580 

CLC 


64CF 

79D265 

6600 

ADC 

TMINSP,Y 

64D2 

85E1 

6620 

STA 

R+13 



6640 a 



64D4 

A5E1 

6660 

LDA 

R+13 ; 

64D6 

4D0C40 


EOR 

SCRSPD 

64D9 

30 IB 

6700 

BMI 

TIN553 ; 

64DB 

A5E1 

6720 

LDA 

R+13 

64DD 

1005 

6740 

BPL 

TINI50 

64DF 

49FF 

6760 

EOR 

#$FF 

64E1 

IS 

6780 

CLC 


64E2 

6901 

6800 

ADC 

#1 


5 Check speeds to see who overtak es 

m 

.1 


I ch eck sign s 


branch 
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64DB 

A5E1 ‘ 

6720 

LDA 

R+13 

64DD 

1005 

6740 

BPL 

TINI50 

64DF 

49FF 

6760 

EOR 

#$FF 

64 El 

1.8 

6780 

CLC 

_ j.. 

64E2 

6901 

6800 

ADC 

#1 


check maqn ittides 
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MOVE 
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D2iMOVE.M65 


64E4 
64E4 
64E 6 
64E9 
64EB 
6 4ED 
6.4EE 
64 FO 
6 4 FO 
64F2 
64F4 
64F6 
64F6_ 
64F? 
64 FB 
64FB 
64FD 
6500 
6500 
6505 
6505 
6505 
6507 
650A 
650A 
650D 
650F 
6512 
6512 
6514 
6515. 
_65i7. 
651A 


1 

1 


85DC 

AD0C40 

1005 

49FF 

IB 

6901 


C 5DC 

900C 

F014 


AD0C40 

300A 


A903 

4C1265 


AD0C40 

30F6 


A95F 

4C1265 


AD0AD2 
10F6 
4CFB64 


S5DB 

18 _ 

690B . 

6D0A40 

AA 


6820 
6840 
6860 
6880 
6900 
6920 
6940 
”6960 
6980 
7000 
7020 
7040 
7060 
■7080 
7100 
7120 
7140 
7160 
. 7180 
7200 
7220 
7240 
7260 
,_7280_ 
7300 
7320 
7540 
7360 
7380 
7400 
7420 
7440 
7460 


7 

7 

7 


TINI50 

STA R +8 
LDA SCRSPD 


EOR #$FF 

CLC _ 

ADC #1 


CMP R +8 ___ 

BCC TIN552 ; VW is slower - truck wi 1.1 overtake 
BEG TIN154 ; same speed 


BEG TIN154 ; same speed 

TIN555 ____ 

LDA SCRSPD 5 VW is -faster 


! 13 * 


bottom 


_BMI TIN550 

TIN551 __ 

LDA #3 ; init at top 

JMP TIN156 

TIN552 _____ 

LDA SCRSPD 
_BMI TIN551 

TIN550 _ 

LDA #95 5 " bottom 

jmp Ten 156 

XLN15#__ 

_ LDA RANDOM ; select top/bat r« 

S£L_JIN550 

JMP TIN551 _ 

TINI56 

STA R+7 5 save 

CLC _]___ 

ADC #YIRKPT $ find road at. trac 

' A DC DSCRQL 1*_ _ 

TAX 


LD^, DSPTBL ? X ; set ptr to line 

STA R+0 

LDA DSPTBH„X 



6523 

85D5 

7540 

STA R+i 


- 


- 

— 

7560 

; Put truck on road 


„ 

7580 

; Search for road 




7600 

•I 

•V 



6525 

A027 

7620 

LDY #39 5 40 bytes/line 




6527 

A200 

7640 

LDX #0 




6529 


7660 

TINI60 




6529 

B1D4 

7680 

LDA (R+0).Y 




652B 

C9FF 

7700 

CMP #$FF : look for road on this line 





652D 0029 

652F 88 


7720 

7740 


BNE TINI70 
DEV 


; must get at least 2 road bytes to be 

sure ............. . . -i 


6530 D1D4 
6532 D024 
6534 88 


7760 

7780 

7800 


2 

4 

6 


CMP (R+0),Y 
BNE TINI70 

DEY _ 

CMP (R+0),Y 
BNE TINI62 
DEY 


CMP (R+0),Y 
BEG TINI70 


now find next non-road byte 


4 road bvtes is too man 


KM 


cab •" t be road 



















7940 


L-DA #5 


■find left pixel of road 


4 


PAQE 

MOVE 


60 


UPN DOWN 


■for Atari systems 


D2s MOVE.N65 


o 


o 


N 


r> 






VA 




6540 85EE 
.6542 B1D4 
6544_ 


7960 STA 
7980 LDA 
8000 TINI64 


R+26 
(R+0>„, Y 


6544 6A 

6545 9008 
6547 6/1 


8020 

8040 

9060 


ROR 

BCC 

ROR 


A 

TINI66 

& _ 


6548 9005 

654A C6EE_ 

654C 4C4465 


8080 
8100 
8120 


BCC 

DEC. 

JMF 


TINI66 

R+26 

TINI64 


654F 
654F 98 
6550 OA 


8140 

8160 

8180 


TINT. 66,. 
TYA 
ASL 


convert, to Xpos 


A 


6551 

655 ? 

6553 


OA „ 
18 

65EE 


8200 

J3220 

8240 


ASL. 

CLC 

ADC 


A 


R+26 


6555 95D6 

6557 E8 

6558 


,8260 STA R+2,X 

8280 INX 

3300 TIM 170 , _ .. 


save 


6558 


88 

6559 10CE 


ijj* ■ 

655B EOOO 


8320 

8340 

8360 


DEY_ 

EjPL 

CPX 


TIN160_ 
#0 


-find a ny roads? 


655D FOOB 


86DA 


S.380 

■8400 

8420 


BEQ 

SIX 


TINI74 
R+6 


no - 
save 


branch 
# roads 


f ound 




6561 AD0AD2_ 
6564 2903 


) 


O 


3 


+1 


o 

a 


pi 


8440. 

8460 

8480 


LDA 

AND 


RA NDOM 

#$03 


-figure out 
max #roads 


whic h Xpos to use 


found=4 


6566 C5DA 
6563 9005 
656A 


8500 


8540 


CMP 

BCC 

TINI74 


R+6 

TINISO 


valid road? 
yes — branch 


656A 

656B 

656C 



8560 

8580 

8600 


PLA 

TAX. 

PLA 


can’t init 


656D 


AS 

60 


8620 

8640 

8660 


TAY 

RTS 


. 656F 
656 F. 
6570 


AA 


B5D6 


8680 

8700 

8720 


TINI80 

TAX 

LDA 


r+; 


6572 85DA 


6574 68 


8740 

8760 

8780 


STA R+6 


save initial Xpos 


PLA 


6575 

6576 

6577 


AA 

68 

A8 


8800 

8820 

8840 


TAX 

PLA 

TAY 


8860 

8880' 

8900 


Init t rue k ’ s_ par ameter s_ 




£ 




6578 
657A 

A5DA 

9DF562 

8920 ; 

8940 

8960 

LDA 

STA 

R+6 

XPOS,X 

657D 

A5DB 

8980 

LDA 

R+7 

657F 

9DFE62 

9000 

STA 

YPOS,X 

6582" 

A5E1 

9020 

LDA 

R+13 

6584 

9D1063 

9040 

STA 

SPEED,X 

6587 

98 

9060 

TYA 


. 6588 

9JDEC62*_ 

9080 

- STA 

TYPE^X 

658B 

A901 

91OO 

LDA 

#1 _ 











6587 98 9060 

6588 9DEC62 ,9.080 

658B A90 1 __9100 


TYA 

, ST A. TYPE, X, 
l-DA #1 
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MOVE 


D2: MO 


__ 658D 9D0763 
6590 9D3463 
6593 9D3D63 

9120 

9140 

9160 

STA DIR,X 

STA LASTING,X 
STA LASTNZR.X 

6596 A900 
6598 9D2B63 

9180 

9200 

9220 

LDA #0 

STA PATH,X 

a 

659B 20E25A 
659E A001 

65AO 207164 

9240 

9260 

9280 

JSR TRACK 

ldvj*objmax-i 

JSR OVRLAP 

65A3 COFF 

9300 

CPY #$FF 

| 65A5 F003 

9320 

BEQ TINX90 

1 65A7 8EEB62 

9340 

STX ONTOP 

65AA 

9360 

TINI90 

65AA 20C059 

9380 

JSR DRAW 

65AD 60 

9400 

RTS 


« K 

♦ hi 



65AE 
65 AE 
65B2 
65B4 
65B8 
65BA 
65 BE 
6 5 CO 
65C4 
65C6 
65CA 


01 000000 

0000 _ 

01000000 

0000 

01000000 
0000 _ 
00000505 
0500 

00000005 

0505 


5 initial draw 


9420 ; " 

9440 ; TABLE OF PROBABILITIES TO INIT TRUCKS 

9460 ; PR OS i s x/255 per _c aU _ t o _ TINIT _ _ 

9480. TPROB__ 

9500 .BYT E 1~0 .0. 0 . 0.0 ; ROUND 1 


9520 
9540 
9560' 
9580 


.BYTE, 1,0,0,0,0,0 ; ROUND 2 

■ BY T E 1.0. 0 , 0 . 0,0 g_3_ 

.BY TE 0.0.5. 5.5.0 ; 4 

.BYTE 0,0, 0,5, 5,5 1 s’ 

litial speeds for trucks 


65CC_ 

65CC d7076'707 
65D0 0707 
65D2 

65D2 OIOIOIOI 
65D6 0101 


65D8 


=0006 




65D9 


65159 _ 

65D9 BDEC62~ 
65DC 3024 
65DF ROFFA? 


9600 ; _In itial speed s tor trucks 

9620 5 _~ " *“ " 

9640 TMAXSP ; _ truck max speed (ANDed) 

9660 _ -BY T E 7. 7, 7, 7 . 7 ,7 _"_ " 

9680 TMINSP ; v truck min speed (ADDed) 

9700_. BYTE.1, 1,1.1. 1, 1 __________ _________ 

9720 $ ~ ‘ ' - - — 

9740 TPNDX *= * + l _J. . 

9760 NTYF'ES = 6 ; number ot truck types 

9780 ; 

9800 ; COLLISION ROUTINE 

9820_; CHECKS FOR COLLISIONS BETWEEN’ 

9840 5 PLAYER’S VW_AND ENEMY TRUCKS 
9 860 ; _ 

9880 ; Returns: .~ 

990 6 ; carry set and Xreg has index 

9920 ; _o t tru ck co llided w ith , 

9940 5 or 

9960 ; carry clear it no collision 

998 0 j_ 

010000 COLISN 

010020 ;;LDX #0BJMAX-1 ; check all OBJTBL entries 

010040 COL 11 0_ __ ____ 

010060 LDA TYPE,X ; tind active entry 

010080 BMI COLI40 

OIOIOO IDA YPnq 







65E138 


010120 


SEC 


4 
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D2:MOVE.M65 


—r* 
I 1 


*>) 


b 

V 


*) 




65E2 EDA942 


65E5 BOO5 
65E7 49FF 


010140 
010160. 
010180 


SBC BUSY 
BCS COLI20 
EOR #$FF 


; find absolute difference_ 


6SE9 IS 
65EA 6901 
65EC 


010200 

010220 

010240 


CLC 
ADC #1 
C0Ll20 


65EC _C90E 
65EE BO12 


010260 

010280 

010300 


CMP #YCRSH 
BCS COL140 


5 Y tolerance on collision 
j no hit - br anch 


65P0 

65F3 

6#4 

65F7 

65F9 

65FB 


BDF562 

38 

EDA 842 


010320 

010340 

010360 


LDA XPOS„X 
SEC 

SBC BUGX 


; .check X 


J3005 

.49FF 

18 


01.0380 
010400 
010420 


BCS COLI30 
EOR #$FF_. 
CLC 


65FG 

65FE 

65FE 


6901 


C90F 


010440 

010460 

010480 


6600 

6602 

6602 


9005 

CA 


010500 

010520 

010540 


ADC #1 
COL130 

.. CMP #XCRSH 
BCC COLI50 
COLI40 
DEX 


_ ;_X to leran ce 


; found, a collision - bx.anch 
; next object _ 


I 2 

j 2 ’ 

|22 




6603 

6605 

6606 


10D4 

18 


010560 

010580 

010600 


BPL 

CLC 

RTS 


CQL.I10 


; no col 1isions 




Uo 


6607 

6607 


38 


010620 

010640 


COLI50 
SEC 


*0 


m 


7 ) 


*0 

0“*, 


'0 




o 

o 


; return with colli ded truck index in. 
Xreq. ____ 


6608 60 


010660 

010680 

010700 


RTS 


6609 


-Q1P720 

010740 

010760 


INIT PARAMS FOR NEXT ROUND 


NEWRND 


6609 

660A 

660D 


F8 

AD0540 

18 


010770 

010780 

010790 


SED 

LDA ROUND 
CLC 


K 


f 


660E 

6610 

6613 


6901 

J3D0540 

D8 


010792 

010800 

010810 


ADC #J_ 

STA FOUND 

c"ld 


i nc round ctr 


|4* 


6614 
661,7 
6618 


8D0548 

OA 

85D4 


010820 
010840 
010860 


STA HMEM+79 
ASL A 
STA R+0 


; display it 
s TPNDX=R0UND*6 


to 


Of 


j 661A 

OA 

010880 

ASL 

A 



; 661B 

18 

010900 

CLC 




661C 

65D4 

010920 

ADC 

R+0 



] 66.1 E 

..8DD865 

010940 

STA 

TPNDX 



1 


010960 ; 





6621 

A90A 

010962 

LDA 

#10 

« 

•t 

init flaq ccaunter 

6623 

8D036F 

010964 

STA 

FLGCNT 





010966 ; 





- 6626 

A 900 

010980 

LDA 

#0 

*1 

flaq playfield VBI 

I 66.28 

8D5C50 

011000 

STA 

BF'AGEF 

? 

(nbt bonus page) 

662B 

8D5450 

011020 

STA 

TIMER 

j» 

reset timer 

'■ 662E 

SD5550 

011040 

STA 

TIMER+1 



6631 

A93C 

011042 

LDA 

#60 



6633 

8D0140 

011044 

STA 

TICS 



_6636 

A901- __ 

0-11060 

LDA 

#1 


■** —. 

6638 

8D0040 % 

011080 

STA 

TIMRON 

_5_ 

start timer 


I 

J2 


'"la 




'41 


42 




a:, 


46. 

4 

<8 


J5D 

51 

*2 

t~»3 

*56 















- .. 011082 5 

663B 60 011100 RTS 

___015800 . INCLU DE #D2: SOUND-M6 

1000 .PAGE "SOUND" 



1412RH 














SOUND.M65 


_ _ 1040 ; 

_ 1060 ; UPN DOWN SOUND ROUTIN ES AN D DATA 

1080 ; 

1100 ; 

_ 1120 ; THE FOL LOWING ROU TINES INIT T HE 

1140 s VARIOUS SOUNDS 
...__ 1160 ; . *_ 

6630_1180 VWJUMP _ _ 


6630 A928 1200 LDA #$28 

663E &D0169 1220 SIA ; ,AUbV3 

6641 A9D2 _ 1240 LDA # <S STR1 



6643 

8DE968 

1260 

STA 

V0ICE3 





6646 

A967 

1280 

LDA 

# >SSTR1 





6648 

8DEA68 

1300 

STA 

V0ICE3+1 





664B 60 1320 RTS 

1340 *$„ 

6640 _1360 TRKDIE 


664C.A928 138(3_LDA #$28 

_664E_ 8D0369 14*00_ST_A.__AU.DV4 ._* 

6651 A9AE _ 1420 LDA # <SSTR2 

6633 SDEB68 1440 2? STA V0ICE4 

6656 A967 1460^’ * LDA # >SSTR2 

6658 8DEC68 1480 ** , STA VQICE4+1 

665B 60 _ 1500 R TS __ 

____ _ _ 1 520 ; _ ... _ 

6650 * 1540 VWDIE 

6650 A9A8 1560 LDA #$A8 

665E SDFD68 1580 „ STA AUDV1 

6661 A9F6_ 1600 LDA # CSSTR3 _ 

6663 8DE568 1 620 STA V0ICE1 

6666 A967 . . 1 640 LDA # >SSTR3 

6668 8DE668 _ 1660 _ STA VOICEH-1 

666B A9A8 1680’ • LDA #$A8 

666D 8DFF68 1700 * STA AUDV2 

6670 A928 _ 1720 ' LDA # < S5TR32 

6672 8DE768 _ 1740_ST.A_V0.ICE2 

6675 A968 _ 1760_LDA. # >SSTR32 

6677 8DE868 _ 1780 _ STA VOICEg+l 

667A 60 1800 RTS 

1820 ; 

.667B__ 18 40 FLAG __ 

667B_ A9A8_ . I860 _LDA.#$A8 

667D 8D0369 18.80 _STA AUDV4 

6680 A95A _ 1900 _ LDA # CSSTR4 

6888 8DEB68 1920 STA V0ICE4 

6685’ A968 1940 LDA # >SSTR4 

66 87 8DEC68 _1960. STA VQI CE4+1 

668A 60 . . 1.980 RTS 

_ 2000 ; 

_ 2020 ; _ 

6 6 SB 

668B A928, 

663D 8D08D2 
6690 A9A8 
6692 8DFD68 
6683 J3D0369 
6698 A9A0 


2040 

2060 

2080 


2100 
2120 
2140 
2160 


BSOUND 

LDA 

STA. 

LDA 

STA 

_STA 

LDA 


#$2S 
AUDCTL_ 
#$A8 
AUDV1 
,AUDJV,4 „ 
#$AO " 


D2s SOUND.M65 






















66A9 8DE968 


66AC A967 


66AE SDE668 


66B1 A967 
66B3 8DEC68 
66B6 A967 


AUDV3 

# <BBTR5 
V0 ICE1 _ 

# < SSTR5A 
V0ICE4 

# C5ST R5B 


VOICES 
# >SSTR5 

voiceI +1 


# >SSTR5A 
V0ICE4+1 

# >SSTR5B 


2460 


66C6 A966 


66C8 8DE668 
66CB 60, 




66CC 
66CC 
6 6 DO' 
66D4 

66 PS 
66D C 
66E0 
66E4 
66E8 
66EG 
66F0 
66F4. 
66F8 
66FC 
6700 
6704 
670 8 
670C 

67 K>" 
6714 
6718 
671C 
6720 
6724 


28022302 
1F021D02 
00102308 
2D060002 
2D060 002 
28060 002 
23060002 
24060002 
23060002 
28060002 
21040002 
2 3030002 
28040002 
21060002 
23060002 
2F100008 
35060002 
3C060002 
3C060002 
35040002 
2F080002 
28082D08 
0000 


2600 . STA VOICE1+1 

2620 RTS 

2640- :_ 

26 60 ; GOT ALL FLAGS SOUND 
2680 SS TR6 

-2 700 . B YTE 40*2.,*35* 2.31 .2, 


29,2,0,16.35.8 


2740 


2760 


2800 


BYTE 45 . 6,0,2.45,6,0 . 2,40, 6 ,0,2,35, 


.BYTE 33,6,0,2,35,6,0,2,40,6,0,2,33. 


BYTE 35.8^0, 2, 40, 4, O, 2, 33, 6,0, 2, 35, 


JBYJE_47^1,6^0, 8, 53,6.0.2.60 . 6,0,2 .60 


,BYTE 53,4,0,2,47,8,0,2,40,8,45,8 


6726 

6726 79100020 
672A 60L00020 
672E 44080004 
6732 00044806 

A7XA 00025100 


2820_.BYTE 0.0 _ 

2 840 j_ __ 

; BONUS PAGE SOUND 
,2880 SSTR5 

2900 .BYTE 121,16,0*2 

2920 . BYTE 96.16.0.3 

2940 .BYTE 68,8,0,4 

2960 .BYTE 0,4,72,6,0,2,81,8,0,8 





















675ft 0008 


4 
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9) 

9) 

«) 




£ 

673C 60180020 

2980 

3000 

_. BYTE 
. BYTE 

96,24,0,32 

6740 44080008 
6744 48060002 

68,8,0,8,72,6,0,2,81, 

,6748 ,51080008 




674C 60060002 




6750 44080008 

3020 

. BYTE 

68.8.0.8.72.6.0.2.81. 

6754 48060002 




6758 51080008 




675C 7908001C 




, 6760 0000 

3040 

.BYTE 

0, 0 

6762 

3060 

SSTR5A 


6762 23100020 

3080 

.BYTE 

35,16,0,32,26,16,0,32 

6766 1A100020 




676A 150C000C 

3100 

_.BYTE 

21,12,0,12,26,12,0,12 

676E 1AOCOOOC 




6772 23100020 

3120 

. BYTE 

35,16,0,32,26,16,0,32 

6776 1A100020 




_677A 2.A0C000C 

3140 

.. . BYJE_ 

42 ,12,0, 1.2,35, 12,0,12 

677E 230C000C 




6782 35100020 

3160 

. BYTE 

53,16,0,32 

6786 0000 

3180 

.BYTE 

0,0 


D2sSOUND.M65 


#) 

0») 




6788 

6788 

6780 


49100020 
Eft100020 


3200 SSTR5B 

3220 .BYTE 73,16,0,32,186,16,0,32 




9) 


&7 


<?)N 


6790 

6794 

6798 

360COOOC 
BAOCOOOC 
AD100020 

3240 

3260 

BYTE 

Tbyte 

54,12,0,12,186,12,0,12 

173,'16.0, 32, 186, 16,0,32 

679C 

67A0 

67A4 

BA100020 
6D0C000C 
ADOCOOOC 

3280 

.byte 

109,12,0,12,173,12,0,12 

67A3 

74100020 

3300 

.BYTE 

116,16,0,32 

6 7 AC 

0000 

3320 

.BYTE 

0, 0 



3340 ; 

TRUCK DIE SOUND 


67AE 


3360 SSTR2 


r 


fy) 

9) 


67AE 

09010801 

3380 

, 67B.fi 

07010601 


67B6 

05010401 

3400 

67BA 

03010201 


6 7 BE 

ooo i 

3420 


, BYTE $09,1,$08,1,$07,1,$06,1 


.BYTE $05,1,$04,1,$03,1,$02 ,1 
.BYTE O, 1 __H 


3 - 


67C0 

6704 

6708 


09010801 
07010601 
05010401 


3440 

3460 


6700 

67D0 


03010201 
0000 


3480 
55 00 j 


.BYTE $09,1,$08,1,$07,1,$06,1 
_ . BYTE $05, 1 , $04, 1 ,.$03, 1, $ 02, 1 
.BYTE"0,0 ~ 


67D2 

67D2 


12011001 


3520 ; VW JUMP SOUND 
3540 SSTR1 

•«* ' ' LJ 0 


BYTE $121, $10, 1, $0F, 1 j. $0E, 1 


67D6 

67DA 

67DE 


0F010E01 
0D010C01 
OBO10AO1 


3580 


BYTE $0D,1,$0C,1,$0B,1,$OA,JL_ 


f) 


67E2 

67E6 

67EA 

67EE 

67F2 


09010801 
07010601 
0501 0401 
03010201 
01000000 


3600 

3620 


.BYTE $09,1,$08,1,$07,1,$06,1 * 
BYTE. $05, 1, $04,_ 1. $05, 1, $02, 1 


3640 .BYTE 1,0,0,O 

3660 ; h- » . _ 

5680 ; VW DIE SOUND 






DAmtr A ~7 


iipw nnwN 
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67F6 

67F6 

67FA 


67FE 

6802 

6806 


680A 
680E 
6812 


6816 
681A 

68 IE 


6822 

>?26 

6828 


6828 

682C 

6830 

6834 

6838. 

6S3C 


60050003 

60030003 

51050003 

43050003 

45050 003 

48050003 


6840 

51050003 

3880 

.BYTE 81,5,0,3,96,5,0,3,123,5,0,3 


6844 

60050003 




6848 

7B050003 





684C ..76050003 
685Q 7B05000.' 
6854 7B05000 


6858 0000 


>900. 

_ .BYTE .123,5,0,3 

- 



j685A 

685 A 50 022C O2 
685E 28022402 


3920 .BYTE 0,0 

394$ ; 

3960 ; FLA G SOUND'_________ 

3980.SSTR4 . . _ 

4000 *_ -.BYTE.. *30, 2, $2C, 2, $28,2, $24 ,*2, $ 20 


3 7 : 

6862 

20021C02 















38 

6886 

18021402 

4020 

.BYTE 

$18,2, $14,2,$10,2,$08,2 

„ 











3-5 

686A 

10020802 















10 

686E 

0000 

4040 

.BYTE 

0,0 












41 



4060 ; 














12 



4080 s 
















ROUTINE TO PLAY SOUND STRINGS 


. THERE ARE 4 VOICE S AVA ILABLE 
l UNLESS TWO AR_E_CONNECTED .VIA. 


5 AUDCTL. 


4220 

4240 

4260 


4580 

4400 

4420 


A SOUND STRING HAS THE FORM: 

•freq, interval, freq, interval", --- 0,0 
INTERVALS ARE l/60th SECONDS. 





A FREQ OF 0 WILL CAUSE A REST . _ 





FOR THAT INTERVAL. 





STRINGS MUST BE TERMINATED BY 0.6. 





TO START A STRING: 

LOAD AUDV1-4 WITH AUDC1-4 VALUE. 






SET VOICE1-4 TO POINT TO THE STRING. 
SINCE A NON-ZERO IN THE HIGH 


ilium 






















4460 


LOW BYTE FIRST (NOTE: STRINGS 
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D2:SOUND. M65! 



CANNOT BE ON ZERO PAGE). 


E XAM PLE: _ 

LDA #$AS 
STA AUDV1 


; -for pure tones 
; for voice 1 



4600 

4620 


4640 



STA V0ICE1 









LDA #>SSTRING hiqh bvte 









STA V0ICE1+1 : init glaving 









< WREN A STRING IS FINISHED, ITS 

VP+Rx+1 WILL BE SET TO 0. 



- 

■v* 






6870 

6870 


6870 A200 


6Q72 BBE668 
6875 F01O 
6877 9DEE68 
687A JBDE568. 
6 87D 9DED 68 
6880 A900 


6882 9DE668 
6885 F014 
6887 BDBE68 
688A F008 _ 
68SC .BDF568 _ 
688F FOOA 


47?0 

4740 

4760 


4780 
4800 
4820 
.4840 
4J36Q. 
D 


49D0 

4920 

4^40 

4960 

4980 

5000 


LDX #0 


LP405 LDA V0ICE1+1,X ; check for rt.ew .sound string pointer 
BEQ BR463 ; if zero then voice is not active 

_ STA VPTRl+l.X : else get new pointer _,_ 

_ .LDA ygiCEi,x _ . _ 

_STA _ VP JR 1, X . ____ 

LDA #0 


STA V0ICE1+1,X . i X 

BEQ BR420 ; begin playing 

BR463 LDA V P TRl+l.X : get high byte of voice pointer _ 

_ BEQ BR419. ; 0 means voice n ot acti ve ... _ 

LDA VT IMR l.X : check voice t imer ... . 

BEQ BR420 : if zero then voice is available 


6891 

6894 

6895 

DEF568 

E8 

_ES_. 

5020 

5040 

5060 

BR461 DEC VTIMR1 , X ; else decrement the 
BR419 INX ; increment index* for n< 

INX ’ ' V* 

ti mer 
sx-t Voice 


*V V v 

S 



6896 

E008 

5080 

CPX #8 ; do for four voices 







6898 

D0D8 

5100 

BNE LP405 







689A 

60 

5120 

RTS 









689B BDED68. 
689 E 85D4 _ 
68A0 BDEE68 
68A3 85D5 


68A5 A000 
68A7 B1D4 


68A9 D003 
68AB 98 


68AE 

68B1 

68B4 

68B6 

68B9 

_68jBC_ 

68BF 

68C0 


msuwuiftj: 


9D00D2 

BDFE68 

D009__ 

BDFD68 

9D01D2 

9DFE68 

C8 

B1D4 

OO 


14 

16 

18 


5200 

5220 

5240 

5260 

5280 

5300 

5320 

5340 


5400 

5420 

5440 

5460 

5480 

5500 

5520 

5540 

5560 


Set pointer to sound string 


BR420 LDA VPJR1,X 
STA R+0 

_LDA VPT Rl + l.X__ __ 

STA R+l 
5 

: Play next note .. _ 


LDY #0 
LDA < R+0 >,Y 


BNE BR457 ; 

TYA 

BEQ BR458 : 

BR457 STA AUDF1,X 
LDA AUDV1 + 1, X 

_BNE B R459 

LDA AUDV1,X 
BR458 STA AUDC1,X 

_S TA AUDV 1 +1 ,_X 

BR459 INY 

LDA <R+0) , Y ; 




et new frequency 


0 means a rest 

uncond it ional jump ____ 

; play ne w f req. _ _____ 

; AUDV 1 + 1 ...is flag fo r a previous rest 
.. .0 means current l y resting _ 

; restore AUDC1 

_X _ un f 1 ag __ __ ___ 

get new timer interval 
O 



















63C4 9D01D2 


5620 


STA AUDC1.X 


stop AUDCx 
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68C7 9DEE68 
680A 9DFE68 
68 CD F 0C5 
6 SCF 9DF568 


68D2 FEED 68 
X 

6SD7 FEEE 68 
68 DA FEED 68 
68 DD POPS 
68 DF FEEE 68 
_68E2_ 18 _ 
68E390AC 


5640 STA VF'TRl + 1 g_X L. -free voice 

5660 STA AUDV1+1,X j. _indicate rest 

5680 _BEQ BR419 __ 5 uncon ditional j umo -f 

5700 BR421 STA~^TIMR1,X ; set’timer 


5720 

574Q 

■ 

9 

N 

Increment .the. 

5760 

5780 

5800 

■ 

9 

INC~ VF'TRI, X 
BNE BR423 

5820 


LNC VF'TRI+ 1, X 

5840 

BR423 INC VF'TRi , X 

5860 


BNE BR424 

5880 


INC VPTR1+1,X 

5900 

BR424 CLC 


68 ED 

_6SF5 

68 FD 


=D201 
=D200 
68E7 


68E9 
68 EB 
63FF 
=6901 
=6903 
=4>8EF_ 
-68F1. 
=68F3 


=D208 

=D20F 

=0232 


.5920. 

5940 

5960 

5.980. 

6000 

6020 

6040 


6060 

6080 

6100 


6120 

6140 

6160 

6180, 

6200- 

6220 

6240 

6260 

6280 


6300 

6320 

6340 

6.360 

6380 

6400 

6420 

6440 


BCC BR461 


V.0ICE.1_ 

VF'TRI * 
VTIMR1 
AUDV1 * 


AUDC1 = 
AUDFJ. = 
V0ICE2 


VQICE3 
V0ICE4 i 
AUDV2 = 
AUDV3 = 
AUDV4 = 
VPTR 2 = 
VPTR3 = 
VPTR4 = 


*rr #+8 
= *+8 
*= *+-8 
= #+8 


$D201 

$D200 

= VOICE1+2 


= VO ICJE2+2 
= V0ICE3+2 
AUDV1+2 
AUDV2+2 
AUDV3+2 
V PTR1+2 
VPTR2+2 
VPTR3+2 


AUDCTL = $D208 

SKCTL = _$D20F_ 

SSKCTL. = $0232 

IN IT SOUND 

ISFX 


6905 

6907 

6909 

6909 

690C 

690F 

6912 

6915 

6916 


A207 

A9.00 

9DE568 

9DF56S 

9DED68 

9DFD68 

CA 

1 OF 1 


6918 A900 
691A 8D08D2 
69ID A903 
69IF 8D0FD2 

202 


6480 __LDX #7_ 

6500 . LDA #0 

6520 ISFX10 _ 

6540 STA V0ICE1,X 

6560 STA VTIfiRlj.X 

6 580 STA VPTR1« X _ 

6600 STA AUDV1j X 

6620 DEX 

6640" BPL ISFX10 

6660 5 

6680 LDA #0 

6700 STA AUDCTL 

6720 LDA #3 

6740 STA SKCTL 

L 


voice 

















6925 60 


6780 


RTS 
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1000 PAGE "SCROLL" 
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/ r r- A 


6926 A900 
6928 8DDB5A 
692B AD0C40 
692E 1005 


<6930 

6932 

6933 


49FF 

IS 

6901 


.§935 

6936 

6939 

693C 

_6?3E_ 

6941 


18 

6D0B40~ 
8D0B40 
9050 
ADOC4 0 
8DDB5A 


6944 A201 

6946 _ 

.6946 BDEC62 
6949 3020 
694B BCFE62 
694E AD0C40 


6954 

6957 

6957 


6958 

6958 

695 A 

695C 

695F. 

6961 


6964 

6967 

6967 


6968. 
696B. 
696B 


696C 


4C5869 


C060 
90 OB 
20095A 
A9FF 
9DEC62 


4C6B69 


9S 


9DFE62 


CA 


10D8 


696E 
696E 
697.1 
6973 
.6975 
6978 
697A 
697D 
6980 
6980 


AD0BD4 

C964 

90F9 

AD0C40 

J3C>06,. 

208F69. 

4C8369 


1020 
1040 
10 60 
1080 
1100 
1120 
1140 
_ 1160 
118 0 
1200 
1220 
124 0 
.1260 
1280 
1300 
1320 
1340 
1360 
1380 
1400 
1420 
1440 
1460 
1480 
_1500 
1520 
1540 
1560' 
0 
0 


1 620 

1640 

1660 


1680 

1700 

1720 


1740 
J 760 
1780 


1800 

1820 

1840 


.1860 
1880. 
1900 


1920 
1940 
1960 
1980 


SCROLL.M65 
SCROLL ROUTINE 


SCROLL 

_LDA #0 _ 

STA SCRFLG 
_LDA_SCRSPD 
BF'L SCR008 
EOR “##FF 
CLC '• 

ADO #1 _ 

SCR008_ 

CLC 

ADC SCRCTR 
STA SCRCTR 
BCC SCR030 

_LDA SCRS PD. 

S~TA SCRFLG 


j flag no scroll _ 
; get scroll speed. 
; make positive 


it no carry 
flag scroll 


no scroll 


ad just V of ob jects on screen 


LDX #0BJMAX~1 

SCR022 __ _ 

_ ,_LDA TYPE, X _ 5 check object 


BMI SCR244 ; branch it not a ctive 

LD Y YPQS.X_ “ _ 

LDA SCF;SF’D ; add or subtract? 


BPL SCR023 
, DEY 


JMP SCR024 
SCR023 
INY 


SCR024 

CPY #96 

BCC S CR 242 __ 

JSR JEF;ASE ott screen 

LDA #-l 

STA TYPE,X :'cancel 


JMP SCR244 
SCR242 
TYA 


STA YP0S„X 
S.CR 244 
DEX 


BPL SCR022 


SCR'" 5 "*' 


2000 

2020 


LDA. VCOLJNT ; sync to screen. 
CMP #100 


20D769 


2040 
2060 
2080 
2100 
2120 
40 


- BCC SCR233 
LDA SCRSPD 
BMI SCR025 
_ JSR UPSC RN 
JMP SCR027 
SCR025 


scroll uc 




mmsm 














2160 


6983 

6983 A902 
6985 85D9 

6987 A900_ 

6989..85DA 
698B 20BB5F 


° 180 


2200 


2220 


2240 

2260 

2280 

2300 

2320 

2340 


rc v '""-"'" "fei" '' ” 

698E 

69‘SE 60 

2360, « 

2380" 

2400 

•-* - 

_2420 
2440 
* 2460 


SCR027 

LDA #2 
STA R+5 _ 
LDA #0 

__STA_ R+6__ 

JSR ADDP1 


Scrolling is accomplished by writifttif the new 

liYte to be scrolled in over the 

line about to be scrolled out and chanqinq 




the display 1ist. 

... 

- 



698F , 

2600 s SCROLL THE DISPLAY WINDOW UP ' ! ; C 

£620 ; ‘ ‘ 

2640 UF'SCRN 1 

rf* + 

...........US. .. .... . 



698F 

2652 UPSCR1 




698F CE0D40 

2660 

DEC SCROLF ; dec pointer to 1st plavfield line, -fine 




6992 1024 

2680 

BPL UPSCIO ; check underflow 




6994 A90F 

2700 

LDA #15 if reset -fine 

/«*' 



6996 8D0D40 

2720 

STA SCROLF * * 




6999 A5CA 

2?40 

LDA SCROLC ; dec coarse '*i 




699B 38 

2760 

SEC 




699C E90A 

2780 

SBC #10 ; 10 chars/row 




699E 85CA 

2800 

STA SCROLC 





2820 

LDA SCROLC+1 l m 




, 69A2 E900 

2840 

SBC #0 , 

.5- 



., 69A4 85CB 

2860 

STA SCROLC+1 





69A6 
69A8 
69AA 
69AC 
69AE 
69B0 
69 B 2 
69B4 


C943 
DOpE 
A5CA 
59AC 
DO 08 
A918 
85CA 
A946 




2880 CMP # >&PFDATA— 10U ; check un derf 1 ow _ 

2900 BNE UPSCIO ** ” _ __ 

2920 LD A SCROLC _^_ ' 

2940 CMP # C&PFDATA-lOu 

2960 BNE UPSCIO' 

2980 LDA # <aPFDATA+P FLEN-1O u ± reset SCRQLC 

3000 STA SCROL.C _ 

3020 LDA # >4PFDATA+PFLEN—1Ou _ 

3040 STA SCROLC+1 





3060 

w 

? 











3080 

5 Update DSCROL 

(new top line) 





53 

m 




3100 

5 






r' 



69BS 


3120 

UPSCIO 






p?' 



69B8 

CE0A40 

3140 

DEC DSCROL 

5 dec index to 

SMEM first line 




( t 

i53i 

0 


69BB 

1005 

3160 

BPL UPSC15 

; branch if no 

underf1ow 







69BD A96F 
69BF 8D0A40 


3180 

3200 

3220. 

3240 

3260 

3280 

3300 


LDA #111 
STA DSCRQl. 


else reset to bottom 


Set pointer to new line destination 
which is the new top line. 

qms ’ * ' " 


UPSC15 

















UPN DOWN 


•for Atari systems 


PAGE 71 
SCROLL 


D2s SCROLL.HAS 


69C2 

69C5 

69C6 

AD0A40 

AA 

BD3E40 

3320 

3340 

3360 

_LDA DSCROL ; DSCROL indexes top 
TAX _ ; use to index DSPTB 

LDA DSPTBL, X ; net pointer low 

line of display 
list of ptrs to SMEM 

69C9 

85D4 

3380 

STA R+0 


69CB 

BD1D41 

3400 

LDA DSPTBH,X ; " high 

>f " 

. 69C.E. 

85D5 

3420 

STA R+l 

.. ■ * 

,:f r r : : : 


3440 


3460.j .Write PF line indexed by SCROL pointers 
3480 : to 5MEM addres s in (R+0,R+ 1 )._ 


69D0 

6 9D0 2 0 5B6 A 


35,00 ; 

3520 UPSC18 


JSR PFL-INE . 


v' 


69D3 207B4F 
69D6 60 


2 d! 


. 3560_s. 

3580_ 

3600 


JSR CHGDSP 
RTS_ 


i rewrite, display/ list poi nters 


3620 i; 
3645 ■ 
3660 s 


3680 ; 
3.7Q0. « 
3720 : 


S CROLL THE DIS PLAY WIN DOW DOW N 


write new line to current line 


69D7 

69D7 AE0A40 
69 DA BD3E40 


69DD_ 8 5D4 
. 69DF BD1D41 
69E2 85D5 


3740 DNSCRN 
3760 LDX DSCROL i 

. 3780_ LDA D SPTBL. X 


get top line index 
.5 s et pointe r_ 


3 800 

.3820 

3840 


ST A R+0. 

JLDA .DSPTBH, X 
STA R+l 


3860 ; 

3880 ; 

-3900 ; set SCROL ptrs to 11 2th l ine 
3920 5 after current, line 


69E4 A5C A 


3940 ; 
3960 


69E6 48 
69E7 A5CB 
.69E9 48 


3980 

4000 

4020 


LDA SCROLC s sa ve SCRO L p trs 


PHA 

LDA SCROLC+1 
PHA 


69EA A5CA 
69EC 18 


4040 j_ 

4060 

4080 


LDA SCROLC 
CLC 


add 70 bytes = 7__ 


69ED 6946 
69EF 85CA 


4100 

4120 


ADC #70 
STA SCROLC 


char rows = 


112 lines 

- —i- 


y 


__69F3 

69F5 

6900_ 

85CB. 

. » •*» 

_ 4160 

_4180 

4200 : 

„ ADC 
STA 

OL/rAULL/T- X 

.#0 . 

SCROLC+1." 

- 

69F7 

C946 

4220 

CMP 

# ><SF'FDATA+PFLENu 

69F9 

9015 

4240 

BCC 

DNSC02 ; 

no ovfl 

69FB 

D006 

4260 

BNE 

DNSC01 ; 

ovf 1 — 

69FD 

A5C.A 

4280 

LDA 

SCROLC ; 

need to 

• 69FF 

C922 

4300 

CMP. 

# < &PFDATA+PFLENu 

6 A01 

900D 

4320 

BCC 

DNSC02 5 

no ovfl 



% 




6A03, 


4360 DNSC01 



• , 6A03 

A5CA 

4380 , 

> LDA 

SCROLC 


6A05 

38 

4400 

SEC 



6 Ao6 

E96C 

4420 

SBC 

# < PFLEN 



check ovfl, 
branch 
branch 


6A08 85CA 


4440 * 


















6A0AA5CB 


4460 


LDA SCRQLC+1 


4 


# 


# 


m 


26 

26 


m 


h 


M 


ib: 

K 






* 
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6A0C E902 
_6A0E 85CB 
6 A10 


4480 

4500 

4520 


6A10 205B6A 

% 

6A13 69 


4540 

4560 

4580 


6A1 4 35CB 

. 6A16 63 _ 

6A17 85CA 


4600 

4620 

4640 


6A1 9 AE0D40 
6A1C ES 
6A1D 8E0D40 


4,660 

4680 

- 4760 - 

4720_ 

4740 

4760 


6A20 '8010 
6A22 DQ24 
6A24 A900 


4780 
4800 
4820 


6A26 8D0D40 
6A29 A5CA__ 
6A2B 18 


4340 

4860 

4880 


6&2C 690A 
6A2E 85CA 
6A30 A5CB 


4900 

4920 

4940 


6900 


_6A34 85CJB 
6A36 C946 


6A38 DOOE 
6A3A A5CA 
6A5C C9 22 


4960 

4980 

5000 


5020 

5040 

5060 


6A3E D008 
6A40 A9B6 
6A4285CA 


5080. 

5100 

5120 


6A44 A943 
6A46 85CB 
6A48 


5140 

5160 

5180 


5200 

5220 

SO 




40 


6A48 

6A4B 

6A4E 

6A50 


EE0A4Q 

AD0.A40 

C970 

D005 


5^60 

5280 

5300 


SBC # _>PFLEN . _ 

STA SCROLC+1 ___ 

D NSC02 __ __ 

JSR PFLINE s write the line 

at 

•t 

. PLA _ . . _ s restor e S CRQL , ‘ _ 

STA SCROLC+1 _ 

PLA 

_ST A SCROLC ___ _ _ 

* $ ' 

5 Set. SCROL ptrs to next line ‘ t tfi 

* £ * * # 

TPX 5.Cr' 0LF~I'L. fine scroll 
I NX 

~STX S CROLF 
CPX #16 

BNE DNSC10 ! 

LDA #0_ t 

STA SCROLF ; reset ~ ~. ~.* 

__LDA SCROLC ; inc coarse . 

CLC .. 

adc #io *" ' 

STA SCROLC ^ 

_ LDA SCROLC+ 1 _ , — 

.-ADC_ #0__ _ _____ _ _ 

STA SCROLC+1. . ’_______ 

_ CMP # > 4PFDATA+F'FLEN u ; che ck overflow 

BNE DNSC10 f 

LDA SCROLC ; 4 v* 

_ _CMP # <fiF' F DATA+P FLENu Z** t n “ 

BNE DNSC10. _______ 

LDA # CFFDATA ; reset _ 

STA SCRO LC__________ 

LDA # >PFD AT A 7TT *"'■«**" 

STA SCROLC+1 ft %% 

DNscio __ _ ’": 'V , _ 

3 __ __ _ _ * . . _ 

; Update D5CF:0L (new top line) ___ 

JL. the old top l in e now beco mes ____________ 

; the new bottom line. 


A* 


5320 

5340 

"5360 


6AS2 

6A54 

6A57 


A9O0 

8D0A40 


5400 

5420 


IN C DSCRO L 
LDA DSCROL 
CMP #112 
BNE _DNSC15_ 
LDA #0“ 

STA DSCROL 


;. inc in dex to SMEM first li ne 
; check for overflow 


reset to top 


DNSC15 


6A57 

6A5A 


207B4F 

60 


5440 

5460 

5480 


JSR CHGDSP 
RTS 


oove the d i sp 1 a y list pointers_ 


5500 

5520 

5540 


5560 

5580 

5600 

5620 


Write the playfield line indicated 
by. SCROLC, SCROLF to the SMEM _ , , . 

location (R+O.R+1). _ c _TC 


XT 


p. ' j I | r 

















W ji ii a y + 5 wm 1 ntiAJH 

$- Ly. ’SCRCILC T SCROL.F jto^b^fSMEtL 
5620 i 1 o cat 1 an (R+0, R+l) . _ * 
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4 



5640 

5 




5 

6A5B 


5660 

PFLINE 



4 

6A5B 

8A 

5680 


TXA 

... 5. 

save reqs 

7 

6A5C 

48 

5700 


PHA 



8 

6A5D 

98 

5720 


TYA 



9 

6A5E 

48 

5740 


PHA 



0 

6A5F 

A5D4 

5760 


LDA 

R+O 


1 

6A61 

48 

5780 


PHA 



i 

6 A 62 

A5D5 

5800 


LDA 

R+l 


3 

6A64 

48 

5820 


PHA 



4 

6A65 

AOOO 

5840 


LDV 

#0 ; 

index to chars in ,PF li 

5 

6A67 


5860 

F'FLIlO 



6 

6A6_7 

98 

5880 


TYA 



7 

6A68 

48 

5900 


PHA 

■ 

save char index 

8 

6A69 

B1CA 

5920 


LDA 

(SCROLC). 

Y 

9 

6AdB 

AA 

5940 


TAX 

CHARH,X 


H 

6A6C 

BQ0C42 

5960 


LDA 


M 

6A6F 

S5D7 

5980* 


STA 

R+3 


2 

6A71 

BD4C42 

6000 


LDA 

CHARL,X 


3 

. .6A74 

AE0D40 

6020 


LDX 

SCROLF 


M 

6A77 

18 

6040 


CLC 



5 

6A78 

70FC41 

6060 


ADC 

M4TBL,X 


6 

6A7B 

S5D6 

6080 


STA 

R+2 


7 

6A7D 

A003 

6100 


LDY 

#3 ; 

write 4 bvtes/ehar row 

>a 

6A7F 


6120 

PFLI20 



9 

6A7F 

B.1D6 

6140 


LDA 

JR+2 > , Y ; 

qet char data 

0 

6AS1 

91D4 

6160 


STA 

( R+O )„Y : 

write to screen 

n 

6AS3 

88 

6180 


DEY 



2 

6A84 

10F9 

6200 


BPL 

PFLI20 


3 

6A86 

A5D4 

6220 


LDA 

R+O ; 

update screen pointer 

4 

6A88 

18 

6240 


CLC 



5 

6A89 

6904 

6260 


ADC 

#4 


6 

6A8B 

85D4 

6280 


STA 

R+O 


7 

6A8D 

A5D5 

6300 


LDA 

R+l “ 


8 

6A8F 

6900 

6320 


ADC 

#0 


9 

6A91 

8565 

6340 


STA 

R+l 


0 

6A93 

68 

6360 


PLA 


restore char counter 

1 

6A94 

AS 

6380 


TAY 



2 

6A95 

CS 

6400 


INY 



3 

6A96 

COOA 

6420 


CPY 

#10 


4 

6A98 

DOCD 

6440 


BNE 

PFLI10 ; 

do next qhar 

5 

6A9A 

68 



PLA 



6 

6A9B 

85D5 

6480 


STA 

R+l 


7 

6A9D 

68 

6500 


PLA 



8 

6A9E 

85D4 

6520 


STA 

R+O 


9 

6AA0 

68 

6540 


PLA 


% * 

C 

6AA1 

AS 

6560 


TAY 



I 

6AA2 

68 

6580 


PLA 



2 

6AA3 

AA 

6600 


TAX 



3 

. 6AA4 

60 

6620 


RTS 



4 



015840 

. INCLUDE #D2s 

DATEXP.M65 


1000 .PAGE "DATEXP" 


SCROLL.M65 
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D A J E XP____ _____D2:PATEXP.M65 


4 | 6ADD 

OA 

2140 

ASL 

A 

5 | 6ADE 

OA 

2160 

asl. 

A 

>1 6ADF 

AA 

2180 

TAX 


7 j 6AE0 

A5D4 

2200 

LDA, 

R+0 ' * 

3 ! 6AE2 

9D856B 

2220 

STA 

OBJ DAT, X ‘ 

’ 6AE5 

A5D5 

2240 

LDA 

R+l 


9DS66B. . 

2260 

STA 

_0BJDAT+1,X 



2280 jj 




20056C 

2300 

JSR 

SHAPEX 5 expand 1st shape 

3 6AED 

4 6AEF 

A5D4 

18 

2320 

2340 

LDA. 

CLC§ 

7R+0 5 set ptr to 2nd shape, - 

, , 

5 . 6 AFO 

6950 

2360 

ADC 

#80 

6 6AF2 

85D4 

2380 

STA 

R+0 

^_6AF4 

9002 

2400 

BCC 

DATE20 

8 6AF6 

E6D5 

2420 

INC 

R+l 

« 6AF8 


2440 DATE20 


°{ 6A^8 

A5D6 

2441 

LDA 

R+2 

' 6AFA 

£)5DA 

2442 

STA 

R+6 * 

2 6 AFC 

A5D7 

2443 

LDA 

R+3 

3 6AFE 

85DB 

2444 

STA 

R+7 

4 


2445 ; 



5 6 BOO 

A5D6 

2446 

LDA 

r+2 ■ 

6 6B02 

38 

2447 

SEC 


7 6 BO 3 

E930 . 

2448 

SBC 

# < 560 *"■ 

8 6B05 

85D6 

2449 

STA 

R+2 

9 6 BO 7 

A5D7 

2450 

LDA 

R+3 

6BG9 

E902 

2451 

SBC 

# >560 

1 6 BOB 

85D7 

2452 

STA 

R+3 

2 


2453 5 



3 6B0D 

20056C 

2460 

JSR 

SHAPEX ; expand 2nd shape 

• 6B10 

68 

2480 

PLA 

; recover Xreq 

8 6B11 

43 

2500 

PHA 


4 6B12 

OA 

2520 

ASL 

A 

6B13 

OA 

2540 

ASL 

A s 

6814 

OA 

2560 

ASL 

A " “ 

6B15 

OA 

2580 

ASL 

A 

6B16 

OA 

2600 

ASL 

A 

6B17 

AA 

2620 

TAX 


6B18 

A5D4 

2640 

LDA 

R+0 

6Bi A 

9D8D6B 

2660 

STA 

OBJDAT+8,X 

0 OB ID 

A5D5 

2680 

LDA 

R+l 

6B1F 

9D8E6B 

2700 

STA 

OBJDAT+9,X 

6B22 

68 

2720 

PLA 


6B23 

AA 

2740 

TAX 




2760 : 



6B24 

E002 

2780 

CPX 

#2 ; already do masks? 

6626 

BO 16 

2300 

BCS 

DATE30 ; yes - branch 

' 6B28 

BCS86B 

2820 

LDY 

TYF'REF,X ; else setup ptr to mask’ data 


B9636B 

_ 2840 

LDA 

PPL+6,Y 


85D4 

2860 

STA 

R+0 


6630 B96F6B 2880 LDA PPH+6.Y 



























&B3E 


3020 DATE30 


4 


PAGE 78 
DATEXP 


UPN DOWN 


-for Atari systems 
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4 

6B3E A6DC 

3030 

LDX 

R+8 

5 

6B40 BC586B 

3040 

LDY 

TYPREF,X 

6 

6B43 8A 

3060 

TXA 


7 

6B44 OA 

3080 

ASL 

A 

8 

6B45 OA 

3100 

ASL 

A 

9 

6B46 OA 

3120 

ASL 

A 

to 

6B47 OA 

3140 

ASL 

A 

I) 

6B48 OA 

3160 

ASL 

A 

12 

6B49 9D5A6B 

3180 

STA 

OBJREF.X 

13 


3200 



14 


3220 

5 


15 

6B4C E6DC 

3240 

IN© 

R+8 

16 

6B4E A6DC 

3260 

LDX 

R+8 

17 

6B50 E002 

3280 

CF'X 

#NACTYF'E 

18 

6B52 F003 

3300 

BEQ 

DATE40 

19 

6B54 4CB36A 

3320 

JMP 

DATE10 

r 

6B57 

3340 

DATE40 


pi 

6B57 60 

3360 

RTS 



P2 




set GBJREF entry. 


#3 2 


# of active ob j ect types 


6B58 


=0002 


3380 

3400_TYPREF *= *h 
3420 NACTYPE = 2 


# active o b -j ects 


6B5A 


2E80 

3740 


3440 0BJREF *= *+0BJMAX 
3460 MASKX = $2E80 ; size = 2240 bytes 


$8c0 




$3740 


; size= 2240 = $8c0 







28 

6B5C 

FF 

3500 

FFBYTE .BYTE $FF 


'# 

79 



3520 

_- _ 

* 



30 



3540 

■ 

I 




31 

6B5D 


3560 

PPL 



32 

6B5D 

C30S03 

3580 

.BYTE 

<TRUCK, CSWEEPR, CFLGCAR j data 


33 

6B60 

030303 

3600 

.BYTE 

<FL8CAR. CFLGCAR, CFLGCAR 



3< i 

6B63 

630303 

3620 

. BYTE 

CTRUCKM, CSWEEPRM, CFLGCARM 5 

mask 

351 

6B66 

030303 

3640 

.BYTE 

CFLGCARM, CFLGCARM, CFLGCARM 



36 

6B69 


3660 

PPH 




37 

6B69 

6D6F6F 

3680 

. BYTE 

>TRUCK, >SWEEPR, >FLGCAR ,5 .data 

<♦ 

38 

6B60 

6F6F6F 

3700 

. BYTE 

>FLGCAR, J-FLGCAR, >FLGQAR 



39 

6B6F 

6E6F6F 

3720 

. BYTE 

>TRUCKM, >SWEEPRM, >FLGCARH s 

mask 


40 

6B72 

6F6F6F 

3740 

.BYTE 

>FLGCARM. >FLGCARM. >FLGCARM 


1 

I 41 

6B75 


3760 

DXPTR1L 




<2 

6B75 

40 AO 

3780 

.BYTE 

CDATAX. CDATAX+1120 



43 l 

6B77 

80E0 

3800 

. BYTE 

C MASK X, C MASK X +1120 


44 

6B79 


3820 

DXPTR1H 




l« 

6B79 

373B 

3840 

. BYTE 

>DATAX. >DATAX+1120 


• 

<6 

6B7B 

2E32 

3860 

. BYTE 

>MASKX, >MASKX+1120 


47 

6B7D 

• V 

3880 

DXPTR2L 




48 

6B7D 

2080 

3900 

.BYTE 

CDATAX+480, CDATAX+1600 



4 a 

6B7F 

60C0 

392Q 

.BYTE 

C MASK X+480 , C MASK X + 1600 


50 

6B81 


3940 

DXPTR2H 




F 

6B81 

393D 

3960 

. BYTE 

>DATAX+480, >DATAX+1600 


1 

52 

6B83 

3034 

3980 

. BYTE 

>MASK X+480, >MASK X + 1600 


53 



4000 

3 




54 



4020 

J 




55 

6B85 


4040 

OBJDAT 



*# 

56 

6B85 

0000 

4060 

. WORD 

0, DATAX,DATAX+80,DATAX+160 


^ 6B87 

4037 







6B89 

9037 





• 


6B8B 

E037 






6BSD 


oooo 


4080 


.WORD 0.DATAX+240.DATAX+320.PATAX+400 



Moore Buslhess Forms, Inc. sv 1412RH 















6 BSF 3038 




>3 w i»r»;«e 


TT 
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6B91 8038 
6B93 D038 
6B95 2039 


4100 



D 2 sDATEXP.MAS 


r 

113 

# 


m 


# 


311 


P3 


33j 


34 


3d 


P4 


# 

# 

# 

# 


6B97 70Zf 
6B99 C039 
6B9B 103A 


. WQRD^ DA TAX+4 30. D ATAX+560, DATA X+840~DATAX +720. 


X. 


4B9D_A03A 
6B9F B03A 
6BA1 003B 


4120 


. W0RD__D AT A X+300, DATAX+880, DATA X+9 60. DAT AX +10_40_ 


6BA3 503B 
6BA5 0000 


4140 ; 
4i60 


.WORD 0.DATAX+l120,DATAX+l200,DATAX+1280 


6BA7 A03B 
6BA9 F03B 
6 BAB 403C 


6 BAD OOQO 
6 BAF 903C 
6 BB1 E03C 


4180 


. WORD a, DATAX+1360, DATAX +1440, DAT,A.X+-1520 


6BB3 303D 
6BB5 803D 
6BB7 D03D 


4200 . .JWORD DAT AX+l600. DATAX+l680. DA TAX+1760. 


DATAX+1840 


6BB9 203E 
6 B 6 B 703E 
6 SBD C03E 


4220 


WORD DATAX+1920. PATAX+2000. DATAX-P20807DATAX+2I46" 


6 BBF 103F 


6BC1 603F 
6BC3 B03F 




Mi! 


M2 


6 BC5 


6BC5 0000 
6BC7. 802E 
6BC9D02E 


4240 ; 

4260 ; 

-4280. OB_JMSK__ i ___ . 

4300 . WORD O, MASKX, MASKX +80, MASKX +160. 


6 BCB 202F 
6 BCD 0000 
6 BCF 702F 


4320 


. WORD 0,MASKX+240,MASKX+320, MASK‘X+400 


6 BD.I C02F 


6BD3 _1 030 
6BD5 6030 


4340 


6BD7 B030 
6BD9 0031 
6 BDB 5031 


WORD MA SKX+430,MASKX+560.MASKX+640.MASKX+720 


6 BDD A031 
6 BDF F031 
6BE1 4032 


436U 


.WORD MASKX +800,MASKX +880-MAS KX+960.MASKX +1040. 




p3 






6BE3 9032 
6BE5 0000 


4380 5 
4400 


JWORD. 0. MASKX + 1 120 „ MASKX + 1200 . MASKX + j280 


_6BE'7 E032 
6BE9 3033 
6 BEB 8033 


* 6 BED OOOO 
6 BEF DO33 
6BF1 2034 


4420 


.WORD O,MASKX+1360,MASKX+1440,rtASKX+1520 


6BF-3 7034 
6BF5 CO34 
6BF7 1035 




4440 


- WORD MASKX+1600,MASKX + 1680,MASKX + 1760,MASKX + 1840 














6BF9 6055 



6BFB B035 
6BFD 0036 
6BFF 5036 


6C0i. A036 
6C03 F036 


_6C05 
6C05 A5D4 
6C07 48 
6C0S A5D5 
6C0A 48 

6C0B A901„ 
6C0D 85ED 
6C0F 20916C 


' 12 A903 

6C14 85DD 


’0516C 


6C19 A5D6 
6C1B 85 D4 
_6CID A5D7. 
6C1F .85D5 


6C21 A5D6 
6C23 i8 
6C24 6950 


6C26 85D6 
6C28 9002 
6C2A E6D7 

6C2C 

6C2C C6DD 


6C2E D0E6 


4460 


44SO 
45 
4520 
4540 
4560 
4580 
4600 
4620 
4640 
466 0 
~4680 
4700 
_4220 
4740 
4760 
4780 
4800 
4820 
46340 
4860. 
.4880 
4900 


4920 

4940 

4960 

4980 

5000 

5020 


_5100 
5120. 
5140 
5160 
5180 
5200 


WORD MASKX+J 920, MASKX +2000, MASKX+2080, MASKX+2.160 


EXPAND THE SHA PE PO INTE D TO BY__ 

8 R+O.l. R+2-3 POINTS TO SHIFT EXPANSION 
5 AREA.,' R+6,7 POINTS TO REFLECTION 
! EXPANSION AREA. 


SHAPEX. 

LDA R+0 

PHA _ 

LDA R+l 
PHA 

5. —.— _ . - _ 

LDA #1 
STA R+25 
_JSR REFLECT 


LDA #3 
STA R+9 _ 
SHAP10. __ . 
JSR SHIFT 


LDA R+2 
STA R+0 
. LDA. R+3 
STA R+l 


; prese rve R+ 0,1 


j set flag t.g do shifts twic e_ 


ref 1ect the master image 


do 3 shifts of master 


_ST A. R+2__ 

BCC SHAP30 

_ INC R+3 

5 

SHAP30 

DEC R+9 


BNE SHAP10 


6C30 C6ED 
6C32 3016 
6C34 A5DB 


6C36 
6C3S 
6C3A 
6C3C 
6C3D 
6C3F 
6C41 
6C43 
6C45 
6C47 


JE35D5 _ 
A5DA 
85D4 
18 

6950 

85D6 

A5D5 

6900 

S5D7 

4C126C 


5260 

5280 


5320 

5340 

5360 

5380 

5400 

5420 

5440 

5460 

5480 

5500 


DEC R+25 _ 

BMI SHAP40 
LDA R+7 

STA R+l 
LDA R+6 
STA R+0 
CLC 

ADC #80 
ST A R+2 
LDA R+l 
ADC #0 
STA R+3 
JMP SHAF05 


i see if 2nd time through __ 

5 yes — exit 

; else set ptrs. for shifting reflected 
i mage _ _ __ 














MO 
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6C4A 
6C4A 68 


6C4B 85D5 
6C4D 68 

x.r'Ac d >=: 


6C50 60 


5540 

5560 


5700 

5720 

5740 

5760 

5780 

5800 


PL A 


STA R+l 
PLA 

STA R+0 


5 SHIFT DATA 1 -PIXEL TO THE RIGHT 
5 SOURCE IS R+0,1 DESTINATION IS R+2, 
.1 Fill by te id i n R+T5 <va lue shi.ft.ed 
5 in from _lef_t> . __ _ __ 

SHIFT ' 


6C51 A90 


6C59 

6C59 B1D4 
6C5B 95 
6C5D C8 


6C5E E8 


6C5F E005 


6C61 D0F6 


6C65 


6066 

6C68 


6A 


66DE 

66DF 


5940 SHIF20 
5960 LDA <R+0),Y 

_STA R+l'O.X 

6000 


CPX #5 


BNE SHIF20 
LDA R+l5 


ROR. A 
ROR R+10 
ROR R+l1 


; shift row right bv 1 pixel 


6C6A 66E0 

6180 

ROR R+l2 








6C6C 66E1 

6200 

ROR R+13 








6C6E 66E2 

6220 

ROR R+14 








6C70 6A 

6240 

ROR A 








6C71 66DE 

6260 

ROR R+10 








6C73 66DF 

6280 

ROR R+l1 









6C75 

6C77 

6 C79 


66E0 
66E1 
66E2.. 


6C7B 98 
6C7C 38 


6C7D E905 
6C7F AS 

6080.A200 
6 C82 

B5DE 


6300 

6320 

6 340 

6360 

6380 

6400 


6420 

6440 

6460_. 

6480 

6500 

6520 


4 

6 

8 


6C8S E005 
6C8A D0F6 


ROR R+l2 
ROR R+l3 
_ROR R+14 

5 _. _ 

TYA 

SEC 


SBC #5 
TAY 

« __ 

~LDX "io“ 
SHIF30 

LDA* R+10,X 


STA <R+2),Y 

INY 

INX 


CPX #5 
BNE SHIF30 


; rewrite regis ters to dest. row 
































6C8C COSO 


6660 


CRY #80 


do for 80 bytes (16 rows) 
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D2.-DATEXP.M65 


4 


* 


4 


6 C 8 E D0C7 

6680 

BNE SHIF15 I 

0 

5 



6700 



6 


6C90 60 

6720 

RTS 


7 



6740 

5 

0 

8 



6760 

M 

? 


9 



6780 

: REFLECT DATA AT R+0.1 TO R+6.7 


10 



6782 

: LAST COLUMN OF BYTES IS NOT 

0 

11 



6784 

s REFLECTED 


U 



6800 

- 


13 


6091 

6820 

REFLECT 

BJ 

14 


6091 A04F 

6840 

LDY #79 ; reflect 80 bytes * ** 


15 


6093 

6860 

REFL10 


16 


6093 A900 

6880 

LDA #0 

0 

17 


6095 85D8 

6900 

STA R+4 


18 



6920 

« 


19 


6097 B1D4 

6940 

LDA (R+0) 3 Y 5 get byte ,to reflect 

iu 

£ 



6960 



21 



6980 

: Pixel bits must be switcher! if 


22 



7000 

: different since ROL. will switch 

BJ 

23 



7020 

jj them otjherwi.se _ ... __ _ ... . ___ 


24 



7040 

» 


i?5 


6099 A204 

7060 

LDX #4 ; reflect 4 pixels/byte 

•f 

26 


6C9B 

7080 

REFL20 ,, 


? 7 


6C9B 85EC 

7100 

STA R+24 . .,7^,..,,,.. £ ... 

• 

28 


.. 6C9D 24EC 

7120 

BIT R+24 . : set N„V flaas 

29 


6C9F 1005 

7140 

BPL REFL30 : are pixel bits the same? 


30 


6CA1 7007 

7160 

BVS REFL.50 


31 


6CA3 4CA86C 

7180 

JNP REFL40 

• 



6 CA 6 

7200 

REFL30 I 


33 


6 CA 6 5002 

7220 

BVC REFL50 


34 


6 CA 8 

7240 

REFL40 

# 

35 


6 CA 8 4900 

7260 

EOR #$C0 5 need to reverse pixel 


36 


6 CAA 

7280 

REFL50 


32 


6 CAA OA 

7300 

ASL A 

BJ 

38 


6 CAB 66 D 8 

7520 

ROR R+4 ! 


39 


6 CAD OA 

7340 

ASL A ............ 


40 


6 CAE 66 D 8 

7360 

ROR R+4 

0 

41 


6CB0 OA 

7380 

DEX 


42 


6CB1 DOES 

7400 

BNE REFL20 


43 



7420 

« 

p 

BJ 

44| 

6CB3 98 

7440 

TYA 


45 

L _ 

6CB4 48 

7460 

PHA 


46 


6CB5 B9C36C 

7480 

LDA RFLPAT.Y 


47 


6 CB 8 AS 

7500 

TAY 


48 



7520 



49 


6CB9 A5D8 

7540 

LDA R+4 .. 


50 


6 CBB 9IDA 

7560 

STA <R+ 6 ),Y 


51 




“ 


52 


6 CBD 68 

7600 

PLA . . __ ... . _ 

53 


6 CBE A 8 

7620 

TAY 


54 


6 CBF 88 

7640 

DEY 


25 


60CO 10 D 1 

7660 

BPL REFL10 ' 




7680 

!• 


l 7 


6002 60 

7700 

RTS 


4, 


0 

# 


14 , 


19 


kI# 


'24 


n 


m 


0 


.33 




4 4«r 

45 , 


m 


M 




6CC3 

6CC3 03020100 


7720 
7740 
7760 
8081 


5 Reflected byte pattern 
RFLPAT 


■BYTE 3.2.1.0.4 


7 


0# 


Moore Business Forms, Inc. sv M12RH 






















^ m r 


7740* ; Re-flected byte pattern 
6C.C3 __7760 jRFLPAT * _ 

6CC3 03020100 8081 .BYTE 3.2.1.0.4 


•? S' 


'•^p* — 




4 

3 

’4 

*;: 

c 


# 

* 

# 

# 
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i S .... v . 

fr- * : 


6CC7 04 
6 CC 8 08070605 
6 CCC 09 


8082 


.BYTE 8,7,6,J5,? 


8083 


.BYTE 13,12,11,10,14 


6 CCD ODOCOBOA 
6CD1 OE 

6 CD2 12 1 HOOF_8084 _-BYTE 18. 1 7. 16. 1 5. 19 

6 CD 6 13 

6CD7 171.615,14_ 8085 . . -BYTE 23.22.21,20.24 

6 CDB IS __ 



6 CDC 1C1B1A19 8086 

6CE0 ID 

6CE.1 21201 FIE 8087 


6CE5 22_ . 

6 CE 6 26252423 
6 CEA 27 


8088 


■w | 5 

L 


65. 


6 CEB 

2B2A292S 

8089 

; 6 GEF 

2C 


6CF0 

302F2E2D 

8090 

j 6CF4 

31 


j 6CF5 

35343332 

8091 

6CF9 

36 



. BYTE 28,27,26,25*, 29- 
■BYIE_33,32,31 ,30,34 _ 
..BYTE**38, 37,36,35,39 “ 

Tbyte - - 43", 42,4 iTTo, 4 - 4 

..BYTE 4.8, 47,46*45., 4?__ 
.BYTE 53,52,51,50,54 


■Y 


4 =- 


6 CFA 3A393837 8092 

6 CFE 3B ' 

6 CFF 3F3E3D3C 8095 


.BYTE 58,57,56,55,59 
, BYTE 63.62.61.60.64 


6D03 .40... 

6D04 444 54241 
6 DOE! 45_ 


8094 


.BYTE.68*67,66,65,69 


41 

0 


6D09 49484746 
6D0D 4A 
6 DOE 4E4D4C4B 


8095 

8096 


.BYTE 73,72,71,70,74 
.BYTE 78,77.76,75,79 


6D12 4F 


8100 5 
8120 ; 


6D15 


8140 ; BACKSAVE DATA ADDRESS TABLE 
8160 5 

8180 BSTBLL *_l ow 


6 D15 25 7 5C513 8200 
6D17 63B30353 8220 


.BYTE <BAKSAV, CJBAKSAV+80, <B AKSAV+160. < BAKSAV+240 

..,_BYTE ..<BAKSAV+320, < BAKSAV+40 0. <BAKSAV+480, _ 

___<BAKSAV+560 ___ 

high 


0 

0 

0 

0 

0 


6D1B 8240 BSTBLH ; 

6D1B 6 D 6 D 6 D 6 E 8260 .BYTE >BAKSAV, >BAKSAV+80, >BAKSA^+16t>,, YBAKSAV+240 

6D1F 6 E 6 E 6 F 6 F_8J230.. _..BYTE >BAKSAV+520. >BAKSAV+4 0d„ >BAKSAV-<-480, .... 

> B A K S A V+5 6 0 ___ 


8300 ; 


8320 s BACKSAVE DATA AREA 


6D23 


8340 ; 

8360 BAKSAV *= *+QBJMAX#80 
015860 -INCLUDE #D2:TRUCKS.M65 


1000 TRUCK DATA P0S=0 


6DC3 

6DC5 00000000 


.1005. TRUCK 

1010 .BYTE $00,$00,$00,$00,$00 


6DC.7 OO 
6 DCS 00000000 
6 DCC bO_ 


1020 


.BYTE $00,$00,$00,$00,$00 


6 DCD 00055400 
6DD1 00 


1030 


BYTE $00,$05,$54,$00,$00 


6DD2 00155500 


1040 


BYTE $00.$ 15.$55■$OQ.$OQ 






6DD6 OU 
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6DD7 

6DDB 

6DDC 

6DE0 

6BE1 

6DE5 


6DE_6 

6DEA 

6DEB 


6DEF 

6DF0 

6DF4 


6DF5 

.6DF9 

6DFA 


6DFE 
6DFF 
BE 03 


6E04 
6 EOS 
6E09 


6E0D 

6E0E 


_6E .1.3 
6E.17 


Mml 

BE 2.1 
6E 22. 
6E26 
6E27 
BE2B 
6E2C 


BE30 
EES 1 
6E35 


BE36 


BE3F 

6E40 

BE44 

6E45 

6E49 

6E4A 


O05FFD00 

00 _ 

15DFFD00 

00 

S5B55540 

00 


_955FFF54 . 
00 

9557FFF5 


00. 

9555FFFD 

00 


1A555555 
00 

2A955555 


00 * 

OOAAAAAA 

do. 


00A56A95 
00_ 

00AA95AA 


00 

002A002A 
00 . 


0 00.15 50 ol 

00 _ 

00055540 

00 

0017FF40 

00 

0077F F40 

00 _ 

05755540 

00 

155FFF50 


.00 

J255FFF54 

00 


25S7FFD4 

00 

2957FFD 5 

00 

2955FFF5. 

00 _ 

0O55FFF5 

00 


10 50 
10 60 
1070 


1080 _ 
1090 


1100 


.1110 
1120 


1130 


. 1140 . 
1150 ~ 


1160 


11.70 
1180 _ 

1190 

1200 

” 12 * 10 . 

1220 

1250 


1240 


1250 
1260 
1270 
*1280 
_1290_ 


6E4E 

00 


6E4F 

00555555 

1300 

6E53 

00 


6E54 

OOAAAAAA 

1310 

6E58 

00 


6E.59. 

00AA80AA 

1320 

6E5D 

00 


6E5E 

002A002A 

1330 

6E62 

00 

1350 5 


...BYTE $00 ■ $5F. $FD. $00. $00 
. BYTE $15. $DF . $FD „ $00. $00~ 
.E-sYTE $55, $D5, $55, $40 ,$00 


_.BYTE $95, $5F,_$FF, $54, $00 

"Tbyte* $9sT$57. $ff. $fs. $bb~ 


.BYTE $95, $55, $FF,$FD,$OOl, 

* ’ * ‘S-'-igr 


..BYTE $1A, $55, $55, $55, $00 
~*™„ BYTE $2 A. $95. $55., $55. $00 


, BYTE ,$00, $ A A, $ AA, $A A, $00 


. .. . BYTE $.00,. $ A5, $6A, $95, $00 
BYTE $00,$AA,$95,$AA,$00 


,BYTE $00,$2A,$00,$2A,$00 


_P0S=1 . ____ 

.. , BYTE $00, $0i, $55,.$0.0, $00 

.BYTE $00,$05,$55,$40,$00 

.BY TE $00.$17.$FF,$40,$00 

■ BYTE.. $00, $77, $FF,$40, $00 

Tbyte $05,$*757$55^$4o,$oo 

.BYTE $15.$5F,$FF,$50,$00 


. BYTE .$25, $5F, $FF.,$54, $00 


.BYTE $25,$57,$FF,$D4,$00 
...BYTE $29. $5 7. $FF» $D5, $ 00 
.BYJE $29,$55,$FF,$F5,$00 
. BYTE $00,"$55* $FF% $F5,$00 

_ .BYT E $0 0.$55,$ 55 x $55,$ 00 

.BYTE $00,$55,$55,$55,$00 
". BYTE $00, $AA, $AA, $AA, $00 
_ ■ BYTE $00 „ $ A A. $ 80. $ AA. $00. 

.BYTE $00,$2A,$00,$2A,$00 
TRUCK DATA F0S=0_ 


TRUCKS.M65 




















6E5D 00 


6E5E 002A002A 
6E62 0D 


>r 


1330 

1350 


.BYTE ftOO,ft2A,ftOO,$2A,ftOO 
_s TRUCK DATA P0_S=0 _ 


ft 
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D2 

4 

2 

3 


m 

4 

6E63 


1355 

TRUGKM 


5 

6E63 

FFFFFFFF 

1360 

. BYTE 

ftFF,ftFF,$FF,$FF, ftFF 


4 

6E67 

FF 




• 

7 

6 E6S 

FFFFFFFF 

1370 

. BYTE 

ftFF, ftFF, ftFF, ftFF, ftFF 

6 

6 E6C 

FF 




9 

6E6J5 

FFF003FF 

1380 

. . aJBYTE.. 

ftFF.ftF0.ft03.ftFF.ftFF 

_h 

6E71 

FF 




m 

n 

6E72 

FFCOOOFF 

1390 

. byte 

ftFF, ftCO, ftOO, ftFF, ftFF 


52 

6E76 

FF 





13 

6E77 

FFOOOOFF 

1400 

. BYTE 

ftFF,ft00,ftOO,ftFF,ftFF 

m 

14 

6E7B 

FF 





15 

6E7C 

COOOOOFF 

1410 

.BYTE 

ftCO.ftOO.ftOO.ftFF.ftFF 


’6 

6ES0 

FF 




• 

17 

6E81_ 

0000003F 

1420 

. BYTE 

$00,$00,ftOO,ft3F,ftFF 


18 

6E85 

FF 





19 

6 E86 

00000003 

1430 

. BYTE 

ftOO,ftOO,ftOO,ft03,ftFF 

• 

20 

6 E8A 

FF 




2 ’ 

6 E8B 

00000000 

1440 

. BYTE 

ftOO.ftOO.ftOO.ftOO.ftFF 


n 

6 E8F 

FF 




# 

23 

6E90 

00000000 

1450 

. BYTE 

ftOO,ftOO,ftOO,ftOO,ftFF 


24 

6E94 

FF 





25 

6E95 

cooooooo 

1460 

.-BYTE 

ftCO,ftOO,ftOO,ftOO,ftFF 

• 

26 

6E99 

FF 




2 / 

6E9A 

Q.0000000 

1470 

.BYTE 

$C0.ftOO.ftOO,ftOO.ftFF 


28 

6E9E 

FF . 




# 

29 

6E9F 

FF000000 

1480 

. BYTE 

ftFF.ftOO.ftOO.ftOO.ftFF 


1 

6EA3 

pp 




• 

31 

6EA4 

FFOOOOOO 

1490 

-BYTE 

ftFF,ftOO,ftOO,ftOO,ftFF , 

32 

6 EA8 

FF 




33 

6EA9 

FFOOOOOO 

1500 

.BYTE 

ftFF.ftOO.ftOO.ftOO.ftFF 


34 

. . 6EAD 

FF 




# 

35 

_ _6EAE_ 

FFCOFFCO 

1510 

. BYTE 

ftFF,ftCO,ftFF,ftCO,ftFF 


36 

6EB2 

FF 





J7 



1520 

; POS-l 


• 

38 

6EB3„ 

FFFCOOFF 

1530 

. BYTE 

ftFF,ftFC,ftOO,ftFF,ftFF 


39 

6EB7 

FF 



x. .. . .v--- 


40 

6 EB8 

FFF0003F 

1540 

.BYTE 

ftFF.ftFO.ftOO.ft3F.ftFF 

• 

41 

6 EBC 

FF. 





12 

6 EBD 

FFC0003F 

1550 

. BYTE 

ftFF.ftCO.ftOO.ft3F.ftFF 


43 

6EC1 

FF 



, 

u 

44 

6EC2 

FF00003F 

1560 

. BYTE 

ftFF,ftOO,ftOO,ft3F,ftFF 


iSHHEfaligl 

FF 





! 

6EC7 

F000003F 

1570 

. BYTE 

ftFO,ftOO,ftOO,ft3F,ftFF 

□ 

6 ECB 

FF 



. . _ 



6 ECC 

COOOOOOF 

1580 

. BYTE 

ftCO.ftOO.ftOO.ftOF.ftFF 


49 

6ED0 

FF 




50 

6ED1 

C0000003 

1590 

.BYTE 

ftCO,ftOO,ftOO,ft03,ftFF 


51 

6f~D5 

FF 





2 

6 ED6 

C0000003 

1600 

. BYTE 

$C0,ftOO,ftOO,ft03,ftFF 

#> 

53 

6 EDA 

FF 





54 

'* 6EDB 

COOOOOOO 

1610 

. BYTE 

ftCO,ftOO,ftOO,ftOO, ftFF 


>5 

6 EDF 

FF 





56 

6EE0 

COOOOOOO 

1620 

. BYTE 

$C0, ftOO,ftOO,ftOO,ftFF 


& 

6EE4 

FF 






6EE5 

FFOOOOOO 

1630 

. BYTE 

ftFF, ftOO, ftOO, ftOO, ftFF 


6EE9 

FF 




AEEA FF0000Q0 1640 , BYTE $FF. £.00. ftOO . $00. fth F 
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6E EF FFQOOOOO 1650 .BYTE $_FF, $00, $00, $00, $FF_ 

__ 4EE3 FF _ 

6EF4 FFQOOOOO 1660 _ . BYTE $FF ■ $00. $00. $0 0. HsFF 

6EFS FF 

6EF9 FF003F00 1670 .BYTE *FF,*00,*3F,*00,*FF 

6EFD FF __ . .___ 

6EFE FFCOFFCO 1680 ..BYTE *Ff., *CQ, $FF, *C0, *FF 

6FQ2_FF 

1690 a END OF TRUCK DATA _ 

1700 ; 

1710 SWEEPR 

1 720 SWEEFRM _ 

1730 FLGCAR. 

1740 FLGCARM 

1750 _ __ 

1760 

015880 .INCLUDE #D 1 sFLAGS.M65 

1Q0Q „ PAGE FLAGS ,J165. _ 


6F03 

6F03 

6F0 3 

6F03 



Moore Business Forms, Inc. sv 14J2RI 





















>#r 


4 


11 


* 

# 

# 

# 


# 

# 

#> 




PS 
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Pis FLAGS.M65 


6F03 

6F04. 

6F05 

6F06 


=0050 


1020 
1040 
1060 
1080 
1100 
. 1120 . 
1140 
1160 
1180 


; FLAGS.M65 
J FLAG ROUT INES. 


FLGCNT #= * + l 
FJOGL * = * + 1 _ 
FHIT *=_* + l_ 
FDLYCT *= * + l 
FDLY = 80 


count of flags left 
enable J£ 1 aq t oggles 


1 ast 
flag 


f 1 ag. hit or 
delay ctr _ 


cur r ent 1 y hit. 


■-D0OB 

=D01E 


1200 

1220 

1240 


M3PL = 
HITCLR 


$D00B 
■ $D01E 


; dela y betw flag hit checks 
; missile to player- hit. 


clear hits wr i te 1 o.c at i.dh 


1260 

1280 

1500 


*FLGHIT* 

HANDLES FLAG TOGGLING 


6F07 

6F07 

6F0A 


20 


CE066F 

F005 


1340 

1360 


FLGHIT 

DEC FDLYCT 
BEQ FLGH 04 


6F0C. 

6F0F 

6F0F 


4C856F 


A950 


1380 

_1400 

1420 


JMP FLGH90 
FLGH04 

LDA #FDLY 


6 F 11 
6F14 
6F17 


8D066F 
ADOBDO 
BOO S_ 


6F19 

6F1C 

6F1C 


4C806F 


8D1ED0 


1440 

1460 

1480 

1500 

1520 

1540 


STA FDLYCT 
LDA M3PL 
BNE FL6H06 


res et d el ay 
any’ hits? 


JMP FLGHSO 
FLGH06 

STA HITCLR 


no 


branch 


clear hits 


1560 ; 
1580 5 
1600 ; 


Find out which flag is hit 


6 F IF 
6 F 21 . 
6F21 


A209 


BPA46F 


.1620 

1640 

1660 


. _4PX 
FLGH10_ 
LDA" 


#9 


FYH, X 


can’t have MSB of Y < > O 


6F24 

6F26 

6F29 


D028 

BD9A6F 


38 


1680 

1700 

1720 


BNE FLGH40 
LDA FYL/X 
SEC _ 


check Y 


6F2A 

6F2C 

6F2F 


E9.04 
EDA942 
1005 


1740 
1760 
1780 


SBC 

SBC 

BPL 


#4 

BUSY 

FLGH2 


!0 


6F31 

6F33 

6F34 


49FF 

18 

6901 


1800 
1820 
1840 


EOR 

CLC 

ADC 


#$FF 


ttl 


6F36 

6F36 


1860 FLGH20 


6F58 


C909_ 
BO 14 


1880 
1900 


CMP 

BCS 


#9 

FLGH40 


6 F- 

6 f: 

6 f: 


BDB 86 F 

38 

E954 


1920 

1940 

I960’ 


LDA 

8 EC 

SBC 


FHP0S f X 


#52- 


check x 
convert from 
won •’ t ovf 1 


6F40 

6F45 

6F45 


EDA842 


1005 

49FP' 


1980. 

2000 

2020 


_SBC 

BPL 

EOR 


BUGX_ 

FLGH30 

#$FF 








6F47 

6F48 

6F4A 

6F4A 

6F4C 


18 

6901 


C909 

9006 


2040 

2060 

1208.0 

2100 

2120 

2140 


CLC 
ADC 
FLGH30_ 
CMP 
BCC 

FLGH40 


#1 


#9 

FLGHSO 











Li 

4 


6F4ECA 


>160 


DEX 


next -fraa 
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D1;FLAGS.M 6 * 


rf 

2 

3 



„ > v 


ft 

2 

3' 

4 

6F4F 1ODO 

2180 

BPL FLGH10 


4* 

5 

6F51 4C856F 

2200 

JMP FLGH90 ; error exit 


5 

6 


2220 

*t 


6 

7 


2240 

; Got f1ag J 


7 

8 


2260 

jt 


8 

9 

, * 6F54 . 

2280 

FLGH50 


9 

10 

6F54 EC056F 

2300 

CPX FHIT ; is this hit a continuation of last? 


10 

II 

6F57 F02C 

2320 

BEQ FLGH90 ; yes - branch 


11 

12 

6F59 8E056F 

2340 

STX FHIT ; save currnet flao hit 


12 

13 

, 6 FSfc BDAE 6 F 

2360 

LDA FCOLOR,X ; is flag on or off? . 


13 

14 

6F5F 2901 

2380 

AND 41 * 

V‘ 

14 

15 

6F61 FOOS 

2400 

BEQ FLGH60 ; on - branch 


15 

16 

6F63 AD046F 

2420 

LDA FTOGL 5 toqqle enabled? 


15 

17 

6 F 66 F01D 

2440 

EiEQ FLGH90 5 no -- branch 


17 

18 

6 F 68 EE036F 

2460 

INC FLGCNT 


18 

19 

6 F 6 B 4C716F 

2480 

JMP FLGH61 % ' ' 


19 

20 

6 F 6 E 

2500 

FLGH60 


£ 

21 

6 F 6 E CE036F 

2520 

DEC FLGCNT 


21 

22 

6F71 

2540 

FLGH61 


22 

23 

6F71 207B66 

2560 

JSR FLAG ; do flaq sound 


23 

24 

6F74 BDAE 6 F 

2580 

LDA FCOLOR.X : chanae flaa 


24 

25 

6F77 4901 

2600 

EOR #1 . . 


25 

26 

6F79 9DAE6F 

2620 

STA FCOLOR, X ... . / 


26 

27 





27 

28 

6F7C 20E571 

2660 

JSR CHGFLG ; change header flaa 


28 

29 

6F7F 60 

2680 

RTS 

129 



2700 

H 

y 

31 

6 F 8 P 

2720 

FLGH80 


3. 

32 

6F80 A9FF ’ 

2740 

LDA #$FF ! *. * 

! 


33 

6F82 SD056F 

2760 

STA FHIT 


s 

34 

6F85 

2780 

FLGH90 

m 

35 

6F85._60_ 

2800 

RTS 

,35 

36 


2820 

n 

Q6j 

37 


2840 

5 ' * * -K 

—b? 

38 

6 F 86 

2860 

IFYL ; ■flag Ypos high byte , 


381 

I 

39 

6 F 86 C797E787 

2880 

.BYTE <455. <407. <743, <647, <615, <847, <791, <327, 



40 



<151, <119 

MtO 

41 

6F3A 674F1747 




4 

42 

6 F 8 E 9777 




42 

43 

6F90 

2900 

IFYH 5 " low 


! 

44 

6F90 01010202 

2920 

.BYTE >455, >407, >743, >647* >615, >847, >791, >327, 


44 I 

45 



>151. >119 

I 45 

46 

6F94 02030301 




r 6 

47 

6F98 0000 




47 

48 

6F9A 

2940 

FYL *= *+10 


48 

49 

&FA4 

2960 

FYH *= *+10 


49 

50 

6 FAE 

2980 

FCOLOR 5 flag color byte 


50 

51 

6 f-AE 164A3656 

3000 

.BYTE $16.$4A.$36.$56.$AA 


Si 

52 

6FB2 AA 




52 

53 

6FB3 861E861E 

3020 

.BYTE $ 86 ,$1E,$ 86 ,HIE ,*86 


53 

54 

6FB7 86 




f 4 ! 

b5 

6 FB 8 

3040 

FHPQS ; (#PFLINES=983)flag horiz. pos. 


F 

56 

6 FB 8 6S9888A8 

3060 

.BYTE 104,152,136,168,98 


56 


6 FBC 62 


- ■ - . . . 


‘■■J, 


m 

m 

m 

m 

m 


m 

m 

# 

# 


# 

0 

# 

0 

m 

0 

0 


0 


m 

m 


m 

% 


6 FBD A658B546 
6 FC1 AS 

6FC2_ 


3080 


31 Op 5 
3120 IHFPFL 


BYTE 166,83,181,70,168 

_ F'F flags horiz dos. low 


* 

0f_ 

m 


Moore Business Forms, Inc. sv 14I2RH 

























6 FBD A65SB546 
6FC1 AS 

6FC2 


3080 


,-3100 5 
3120 IHFF'FL 


BYTE 166,88,181,70,168 

J- — VS 

L_; _PF flags hori: 


ios. low 
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D1iFLAGS.M 6 f 


mr 

■.^ 


6FC2 1014181C 

6 FC 6 20 
6FC7 12161A1E 

6 FCB 22 


3140 


.BYTE < HMEM+90, < HMEM+90+4, <HMEM +90+8, <HM EM+90+12, 
<HMEM+90+16 _~ _]_“ 

. BYTE <HMEM+90-F2 ~ <HMEM+90+6, <HMEM+90+10, ' 

< HMEM+90+14, < HMEM+90+.18 


6 FCC 

_ 6 FCC 

A.84S4848 

3180 

3200 

IHFF'FH 

. BYTE 

hiqh 

>HMEM+90. >HMEM+90+4. >HMEM+90+8. >HMEM+90+12. 

>HMEM+90+16 

-- 

- - - — - — — 

- 

- 

6 FD 0 

6FD1 

48 

48484848 

3220 

. BYTE; 

' .*.S' 

>HMEM+90t2, >MMEM+90+6tf >HMEN+90+10, 

>HMEM+90+14. >H MEN+9,0+18 





6FD5 

_ 6 MD 6 _ 

6 FD 6 

48 

~ » 

55555555 

. J3240 
3260 

IHFPFC 5 
. BYTE 

play-field -flaq color 
$55.$55.$55.$55. $55 


- . —- 

- 


6 FD 1 A 

6 FDB 

6 FDF 

55 

AAFFAAFF 

AA 

3280 

. BYTE 

$AA,$FF,$AA,$FF,$AA f 






6FE0 

6FE0 

_6FE2_ 

6FE2 

6FE5 

6 FE 8 

6 FEB 

6 FEE_ 

6FF1 

6FF3 

6 FF 6 


6FF7 


A209 

BD 866 F 

9D9A6F 

BD906F 

9DA46F 

BDA E 6 F 

29FE 

9DAE6F 

CA 


10E9 



6FF9 20FD6F 


6 FFC 60 


6 FFD 

6 FFD A20F 
jf>FFF„ . 

6 FFF 13 D9271 
7002 9D3273 


3300 

3320 


3340 


3380 
3400_ 
3420 
3440 
3460 
3480 
3500 
51 ' 


>512 

514 

5 20 

3540 

3560 

3580 


3600 

3620_ 

640 


3660 
3680 
3ZQCL 
3720 
3740 
3760 
0 
0 
0 




IFLAGS 

_LDX #9 ___ 

I FLA 10 . .. 

L_DA IJFYL., X 

S T A FYL .X___ 

LDA IFYH,X 
STA FYH,X 
DA FCOLOR.X 


AND #$FE 
STA .FCOLOR,X 

_DEX___ 

BPL IFLA10 

*1 

JSR IHFLGS 


RTS 

'5 SET UP THE FLAGS IN THE HEADER 


a 

IHFLGS 

_ LDX „g_15_ : init P/M data 

IHFL10 

LDA MFLGDAT+2,X 

STA MQ+50. X _ _ 

STA P0+50,X 
STA P1+50,X 

STA F2+50.X _ 

STA P3+50,_X 
DEX 

BPL IHFL10 


LDX #4 5 init HPOS data 

JEHFL20___ 

LDA IHFPM,X 
STA HFF'OS, X 


Moore Business 
































BPL IHFL20 
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4040 ?. 




14 

70IF A209 

4060 LDX #9 

; init 10 header flaas 



5 

7021 

4080 IHFL30 




,6 


7021 BDC26F 
7024 85D4 


4100 

4120 

4140 


LDA IHFPFL,X 
STA R+0 


702? _85D5 
702B BDD 66 F 
702E 85D7 


7030 20AB54 

7033 CA, 

7034 1OEB 


4160 _ _ . SIA R+l 

4180 LDA IHFPFC,X. 

4200 STA R+ 


4220 JSR EFLAG ; draw -flag 

4240 DEX 

4260 BPL IHFL30 


7036 60 


7037 _ 

703? 58687888 
703B 98 
7 O C_ 


4280 ; 

4300 RTS 

4320 : 


4340 ; Initial header -flag horiz pos. 
4360 ; Far P/M flags 

4380 IHFPM _" .... _ 

4400 .BYTE 88 , 104., 120, 136,.152 


4420 HFPOS %= *+5 _ ; hariz pas af h eader P/M flags 

4440 ; ’ / * 

4460 ; ‘ % , 

4480 i Scroll- the flags in the flag t ab 1 es , ' < __ 

. 450 0 ; __ _ ___ _ 

4520 FL.GSCR . .. . ___ 

4540 _ LDA SCRF L G * : on ly do t his after screen scroll 

4560 BEQ FLGS45 ’ “ 


7041 

7041 ADDB5A 
7044 F043 



2 6 < Cfr 

27 

>0 

I291 ~y 


7046 A9 6E ... 
7048. 

7048 CD0BD4 
704B BOFB 


4580 ; 

.4600._LDAJtllO_ 

4620 FLGS01 

4640 CMP VCOUNT ; sync, to screen 

4660 BCS FLGS01 


3 

'321 


^33, * 

J CD 

1341 “ 

33 M 


4660 _ BCS FLGS01 ____ 

4680 ; 

4700 ; 

4720 ; Setu p far R.STDLI routine in 
4740 : case it’s called 


704D A900 
704F SDE471 


7.052_„A9F;F_ 
7054 A204 
7056 

7056 9DDE71 
7059 CA 
705A 10 FA 


4760. 1 

4780 

4800 

4820 5 

4840 

4860 


LDA #0 _ 

STA FTOPDLI 


unflaq 1st DL_I 


705G ADDB5A 
705F 3029 


I 


7061 A209 
7063 

7063 FE9A6F 
7066 DO03 
7068 FEA46F 


4840 _LDA #$FF _ i ni t list w/l arge # 

4860 LDX #MAXF0N " ~ _ 

4880 RSTD08 __ 

4900 _STA FD LISEQ.X _ _________ 

4920 DEX 

4940 BPL RSTD08 

4960 . . ..... . . 

4980 LDA SCRFLG ; which way was scroll? 

5000 ** BMI FLGS50 ' ‘ _ 

5020 5 ___ 

5040 ; Scroll flag data down 
5060 ; 

5080 LDX #9 _ 1 . index to flags __ 

5100 FLGS10 

5120 INC FYL,X 5 chg flag's Y 

5140 BNE T-LGS15 ,, 

5160 INC FYH.X _ 


!s3 J 

52. 

55j 

:t>\ J 

y 


DACC O 1 I IC'KI nniilKI _ fnr Qi-.-zyi c \ 









7063 FE9A6F 
7066 D003 
7068 FEA46F 


5120 

5140 


5160 


INC FYL,X 
BNE FLGS.15 
INC FYH.X 


chg f 1 


l' s Y' 
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D1 a FLAGS.M65 


if * 4 

*»■ &■ £ 


706B 


706B BDA46F 
706E C903 


5180 

5200 

5220 


FLGS15 

LDA FYH, X 5 check -for wrap) 
Chip# >SPFLEN/1 00 * 16 


7070 9011 
7072 D007 
7074 BD9A6F 


5240 

5260 


7077 C9E0 
7079 9008. 
707B 


BCC FLGS30 
BNE FLGS20 
L DA F YL.X 


5300 

5320 

5340 


CMP # <»PFLEN/100*16 
BCC FL.GS30 
FLGS20 


707B A900 
7070 9D9A6F 
7080 9DA46F 


5360 

5380 

5400 


7083 .. _ 

7083 20B170 
7086 


5420 

5440 

5~460~ 


LDA #0 
STA FYL,X 
STA F YH.X 
FLGS30 


do wraparound,| 


JSR DRWFLG 
FLGS40 


7086 CA 

7087 10DA 
7089 


5480 

5500 

5520 


DEX 

BRL FLGS10 
FLGS45 


7089 60 


5540 

5560 

5580 


708A 

708A A209 


5600 


RTS 

•» 

■1 Scroll -flag d ata up 




FL.GS50 
..;LDX #9 


708C 

708C DE9A6F 
708F BD9A6F 


5660 

5680 

5700 


7092 C9FF 
7094 D003 
7096 DEA46F 


5720 

CT‘ 


FLGS55 

DEC FYL,J( 
_ LDA FYL.X 


5740 


5760 


7099. 

7099 BDA46F 
709C C9FF 


5780 

5800 

5820 


* CMP #$FF 

BNE FLGS60 
■DEC FYH. X 
FLGS60 


JJDA. FYH, X 
CMP #*FF 


check for_ wrap 


709E DOOA 
70AO A9DF 
70 A2 9D9A6F 


5840 

5860 

5880 


BNE FLGS70 

LOA ;# <SPFLEN/100* 16**i 5 do wrapkFOuhrf 


STA FYL,X 




70A5 A903 


70A7 9DA46F 
70 A A 


5900 

5920 


.LDA # >SPFLEN/10uA16-l 
STA FYH,X 
5940 FLGS70 .. 


y 


70AA 20B170 
70 AO 

7PAD CA _ 


5960 

5980 

600Q 


JSR DRW^LS 
FLGS80 * 

DEX 


%- * 
\ * 


7PAE_1QDC. 
70Bo 60 


6020 
. 6040 
6060 


BPL FLGS55 
RTS 


6080 

6100 

6120 


70B1 


_6140 

6160 

6180 


5 Driaw thd 01 ag as a 5th player 

5 by combining all missiles _ 

L .uses.. R+10,11,12,13. Set DLI 


DRWFLG 


70BL 8A 
7082 48 
90B3 BDA46F 


6200 

6220 

6240 


TXA 

PHA 

LDA FYH,X 


70B6 DO70 
70B8 BD9A6F 


6260 

6280 


BNE DRWF50 
LDA FYL,X 


J_ check within display bounds 
























PIiFLAGS-MA 

















710D 38 
71OE E5DE 
7110 85DE 


TAX 

LDA #18 


SBC R+10 



STA-JR+10 

. * — -v 



L.DY #67 
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DlsFLAGS.M6 


7114 4CDD70 


7119 38 


711A FD9A6F 


71 ID OA 


71IE 85DE 
7120' BD9A6F 


7125 4C 
7128 
7128 68 


7 }. 29 AA 
712A 60 


4CD870 


SBC FYLj X 
ASL A 


STA R+10 
LDA FYL,X 
LDX #0 


7740. .. JMP DRWFO 

.7760 DRWF50 
8 




— 

— 

7860. . 

7880 

7900 



7920 



7940 



7960 * 


rteset t.laa. DLI’s to control 

f lag’s color and HPO S_ 

R+l1 flag’s Y 

R+1-2 f 1 ag # 


712B_ 

7980 

RSTDL.I 


_ . 

8000 

n 

_ 


712B A5DF 

8020 

LDA R+l1 

; compute inde: 


712D 
712E 
7130 


713JL. 
7 13 4_ 
7135 


7137 

7139 
713B 
713D 

7140 
7140 
7142 
7144 
7146 

_7148 

.714B_ 

714D 


7150 

7153 

7 153 


7155. 
7157 

7159 
715B 
715E 
715E 

7160 
7163 


38 

E913 

A8 


B93C4B 

A8 

A5DF 


C914 

9005 

A96D 

99C042. 

A5DF *" 

C913 

BOOD 

A901 

SDE471. 

A96D 

SDC342 


4C6371 

A5DF 


C962 

B005 

A96D 

99C642 

A9E D_ 

99C342 


8040 
8060 
a 


8100 

8120 

8140 


8160 

8180 

8200 

.8220 

8240 

8260 

8280 

8300 

8320 

8340 

8360 

8380 


8400 

8420 

8440 


8460 

8480 

8500 

8520 

8540 

8560 

8580 

8600 


SEC 

SBC 

TAY 


_LDA 
JAY 
LDA 


CMP 

BCC 

_LDA_ 

STA. 
RSTD10 _ 

_LDA 

CMP 

BCS 

_LDA 

STA 
LDA 
STA 


JMP 

RSTD30 
LDA 


CMP 

BCS 

_L DA 

STA 

RSTD31 

_LDA_ 

STA 

RSTD32 


; based on flag’s Y 


M3JBL,Y ; *3 . _ 

R+l1 5 top line or above? 


#20 

RSTD10 ; yes - branch 

#$6D _ ; cl ear to p ad i acent DLI 

DLIST+25-3,Y ~ 

R+l 1_; top clip?__ 

#19 

RSTD30 ; no - branch 

.# 1_j_set top DLI fl aq _ 

FT OPD LI .. ‘_ 

#$6D. 5 erase last DLI _ _ 

DLIST+25 


RSTD32 ’ .. ". . 

R+l1_ : bottom line or below? 


#98 __ . _ 

RSTD31 5 yes ~ branch __ 

#$6D _ ; c lear bottom adjac ent DL I 

DLIST+25+3,Y 

#$E D_ s se t _DL I 

DLIST+25,Y 


































. ‘2 


7163 


7165 

7165 

7169 
716„A 
71 6C 
716D 

7170 
7172 
7174 
7174. 
7176. 
7178 
7178 
717B 
717E 
7180 
7182 

7185 

7186 
7186 
7197 


89DE71 

C90A 

B008 

A A _ 

BD9A6F 


84 El 
A 004 

B9DE71 
99DF71 
C4E1.. . . 
F008 
88 

4C7871 

88 

486571 


71§A_. 

718A A5E0 
7188 99DE71 
718F 60 



l 7/T'l 


7190 

7190 00007078 

7194 787E7E78 
7198 787040 40 
7198 40404040 
71AO 0000 


.8660 

8680 

8700 


8720 

8740 

87 60 

8780 

8800 

8820 

*8840 

9860 

_8880_ 

8900 

8920 

8940 

8960 

8980 

9000 

9020 

904*0 

_9060 

9080 

9100 

9120 

9140 

9160 

918 0 

9200 

9*220 

9240 

9260 

9280 

9500 

9320 

9340 

9360 


LDY #0 _______ 


RSTD35 

LDA FDLISEG, Y ; -find a flag.',,. 
CMP #10 _ ; . valid -flag #? 


valid -flag #? ___ 

BCS J7STD40 ; no -.branch __ 

TAX _;. else get thi s -flag ’s onscreen Y 

Ida fyl. x ___ 

CMP R+ll ; current flag displayed above tl 
BCC RSTD48 ; no - branch' * 

* •'•••• -*A- 

RSTD40 ... ________ 

STY R+13 5 . current -flag g oes in this, sl.ot_ 

LDY #MAXFQN max # -flags on scre en at once 

RST D44 _____ 

LDA FDLISEQ, Y t *, 

STA FDLI3EQ+1,Y 

_ CRY R+1 5_.__L__ 

BEQ RSTD50 . _ _ 

DEY . . _____ 

JMP RSTD 44_ _____ 

RSTD48 * 

I MY .’ w „. 

JMP R STD55*__ . __ 

RSJD50 ‘ * 1 "~~* . . _ ___ 

LDA R+12 _. __ 

ST A FDLISEQ,Y ? put flag in alp£<vf 

RTS n, y* 


current flag disp.lay ed above this? 
no - branch «* „ * 


i MISSILE DATA FOR FLAGS 


MFLGDAT 
. BY" 


0,0, $70, $ 78. $7C ,$7E ,$tg,%7fc.-$78, $70, $40, $40, $40 
T>40 , $40, $40, 0,0 . . _ 




71A2 _ 

71-A2 48 
71A3 98 
71A4 48 
71A5 8A 
71A6 48 

71A7 AEE371 


9580 
9400 
9420. 
9440 . 
946*0 
9480 
_9500 
9520 
9540 
9560 
9580 
9600 
9620 
9640 
9660 
9680 
9700 


FLAG DLI ROUTINE 


■S COLOR 


A MD HORI ZONTAL POSITION .OF_ 

FLAGS. 

FLAGS IN "FDLISEQ" TABLE ARE 
HANDLED I N OR DER AND INDEXED^ 
WITH "FDLINDX" 


FDL.I 


LDX FDLINDX 


let index tea next fl ac 



















7-1A4 48 
71A5 SA 
71A6 48 


71A7 AEE371 


9620 

9640 

9660 

9680 

9700 


r DLIIMDX 


jet index to next flat 
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Dl:FLAGS.M 6 


_71 AA 
7.1 AD 
71AE 
71B1 
71B3 
71B5 
7 IB 7 
71BA 
71 BA 
71BD 
71BD 


BDDE71 

AA 

BDAE 6 F 

2901 

F005 

A90F 

4CBD71 


7 

.7 . 
9760 
9780 
9800 
9820 
9840 


LDA FDLISEQ,X 


get next flj 


TAX 

LDA FCQL OR. 
AND #1 
BEQ FDLI10 
LDA #$0F 
JMP FDLI20 


set co lor 

use color or kihitfe? 
use color - branch 
use white 


BDAE 6 F 


8D19D0 


9840 JMP FDLI20 

9860 FDLI10_ 

9380 _ LDA FCQLOR, X 

9900 FDLI20'* 

9926 STA $D019 


7100 

7103 

7106 

7107 

7108 
71 O B 
7 ICC 
71 CD 
7 IDO 
71D1 
71D2 


BCB 86 F 
8C07 DO. 
08 
08 

8C06DO 

08 

08. 

8C05D0 

08 

08 

SC04.D0 


9940 ; 

9960 

9?8j5_ 

0 1 0000 
010020 
010040 
010060 
010080 
. 010.1 <26 
010120 
010140 
010160 


LDY FHF'OS, X 


set horiz pos. 


SIY_ HP0SM3 

INY _ 

INY 

STY ? IHP0SM2 

INY 

INY 

.STY HP0SM1 

INY _ 

INY 

STY HPOSMO 


6 


010200 ; 


? 

0 

71D5 EEE371 

010220 INC 

010240 : 

FDLINDX i 


inc index for n 



71D8 

68 

010260 

71D9 

A A 

010280 

7 IDA 

68 

010300 

7.1 DB 

A 8 

010320 

71 DC 

68 

010340 

71DD 

40 

010360 




=0004 


7.1 DE 
71E3 


PLA 
TAX 
PLA 


Y 

A 

i 


010386 ; 

Of0466 ; 

010420 s FDLISEQ table holds order of 


010440 

010460 

010480 


010500 ; is 8 . 

010520 j 

010540 MAXFON = 4_ ; max # of fla 

010560 FDLISEQ *= *+MAXF 0 N+l 


flags on screen from.top to 
bottom for. DLI's^to access. 
Max number of 


on screen 


on screen at one time 


010580 FDLINDX *= *+1 


71E4 


71E5 

71E5 E005 

71F7 7ri71 


010600 


010620 5 
010640 ; 

010660 FTOPDLI #= % 


010680 

010700 

010720 


010740 
010760 
0 10780 
010800 CHGFLG 
010820 CPX #5 

a i on Jin Rnn hhrf7A 


index to FDLISEQ 



Change flag header display 


is header flag P/M or PF? 
P/M — branch. 
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FLAGS.M65 






010880 

j .Flag is PIayfi.eld -flag __ 



010900 


71E9 

BDC26F 

010920 

LDA IHFPFL.X : set dest Dtr 

| 71EC 

85D4 

010940 

STA R+O 

i 71 EE 

BDCC 6 F 

010960 

LDA IHFPFH,X 

i. 71F1 

85D5 

010980 

STA R+l . ......L....... 

71F3 

BDAE 6 F 

011000 

LDA FCOLOR.X 5 which color? 

71F6 

2901 

011020 

AND #1 

71F8 

F005 

011040 

BED. CHGF62 

71FA 

A9S5 . 

011060 

LDA #$55 ; make white 

71FC 

4C0272 

011080 

JMP CHGF64 , tS . 

7 if? 


Oil 106 

CHGF62 

7 IFF 

BDD 66 F 

0.11120 

LDA IHFPFC,X ; make color 

7202 


011140 

CHGF64 

7202 

85D7 

011 160 

STA R+3 

7204 

20AB54 

011180 

JSR EFLAG 5 draw flag 

7267 

4C1C72 

011200 

JMP CHGF90 



011220 

M 



011240 

; Flag is a P/M flag 



011260 

l „ - -- 

720A 


011280 

CHGF70 

720A 

BDAE 6 F 

011300 

LDA FCOLOR,X w , . 

7260 

2961 

011320 

AND #1 ? { 

720F 

#005 

011340 

BEQ CHGF74 , . * “i. 

7211 

A900 

011360 

LDA #0 ' ; move flaa off screen to 

7213 

4C1972_ 

011380 

JMP CHGF76 

7216 


011400 

CHGF74 


7216 B03770 Q. 11420 LDA IHFPli, X ; move back on screen 

7219 ' 011440 CHGF76 “ ~ \ * 

7219 9D3C70 _ 011460 St A HFFOS. X_ >;i 


__ 0114 80 $ . _ 

72jcl__ 01.1500 CHBF90 _ 

721C 60 011520 RTS 

015900 5 
015920 i 

-721D _01596 0 PRQGEND - % 

72ID_ Q1600Q. _ END. _ 


ASSEMBLY ERRORS; 0 18118 BYTES FREE 




SusTnessFormsTlnc. sv 
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SYMBOLS_ 


•for Atari systems 


D2s U.M65 


f 

2 

3 

ft >V.V 







« r-i« 

§ ' : '' V 

4 









5 

5ADF 

ACCCNT 

=0028 

ACCDLY 

5FBB 

ADDP1 

5353 

ADDS10 

6 


ADDS18 

5375 

ADDS20 

537E 

ADDS24 

533C 

ADDSCOR 

7 

66BC 

ALLFLGS 

=004D 

ATRACT 

=D201 

AUDC1 

=D208 

AUDCTL 

8 

=0200 

AUDF1 

68FD 

AUDV1 

=68FF 

AUDV2 

=6901 

AUDV3 

9 

=6903 








10 

531A 

B2DL05 

5326 

B2DL10 

5338 

B2DL20 

6D23 

BAK'SAV 

11 

51 DC 

BDATH 

51D6 

BDATL 

52F2 

BDLI1 

530C 

BDLI2 

12 

529E 

BIMC 

5AD7 

BLSTINC 

5AD3 

BLSTNZR 

5 IDO 

BMSGH 

13 

51CA 

BMSGL 

51B3 

BPA1OO 

,509E 

BF'AGIO 

50BR 

BPAG20 

14 

50AA 

BPAB22 

50CA 

BPAG25 

50DC 

BPAG30 

5104 

BF’AG40 

15 

51 OF 

BPAG50 

5157 

BPAG54 

5160 

BPAG60 

5162 

BPAG61 

'6 

5178 

BPAG70 

51 SB 

BPAGSO 

5198 

BPAG90 

51A4 

BPAG92 

17 

5099 

BPAGE 

505C 

BPAGEF 

51FE 

BPDAT 

5ADA 

BF'THCT 

,8 

AS94 

BR419 

689B 

BR420 

68CF 

BR421 

68DA 

BR423 

19 

68E2 

BR424 

68AE 

BR'457 

j68B9 

BR458 

' 68BF 

BR459 

70 

6891 

BR461 

6887 

BR463 

668B 

BSOUND 

6D1B 

BSTBLH 

7', 

. 6 £>13 

BSTBLL 

5AD9 

BUGDIR 

5FE5 

BUGHO 

5FE6 

BIJGH1 

22 

5FE7 

BLJGH2 

5FE8 

BUGH3 

5FE9 

BUGPO 

60 A 9 

BUGP1 

23 

6169 

BUGP2 

6229 

BUGP3 

42A8 

BUGX 

42A9 

BUGY 

24 

=FFFO 

BWDSF'D 

5C21 

BYTADD 





25 

4296 

CARLFT 

5059 

CFADE, 

=02FC 

CH 

f " =02F2 

CHI 

26 

420C 

Charh 

424C 

CHARL.. 

=9000 

CHARS 

» =02F4 

CHBAS 

27 

=D409 

CHBASE 

55A5 

CHCOPY 

4F7B 

CHGDSP 

. 7 IFF 

CHGF62 

'28 

7202 

CHGF64 

720A 

CHGF70 

7216 

CHGF74 

7219 

CHGF76 

29 

721C 

CHGF90 

71E5 

chgfjIg 

4014 

CHINDX 

4B8C 

CHRREF 

30 

=0001 

CINC 

5058 

CMSGCT 

=0064 

CMSGDY 

505B 

CMSGON 

3! 

65D9 

C0LI10 

65EC 

COLI20 

65FE 

COLI30 

6602 

COLI40 

32 

6607 

COLI50 

65D9 

COLISN 

=D012 

COLPMO 

=D013 

C0LPM1 

3J 

« “DO14 

C0LPM2 

=D01JL 

C0LPM3 

505D 

CON 

528# 

-CONGRA 

34 

=D01F 

CONSOL 

4015 

CURCHAR 

4010 

CX 

4011 

CY 

35 

=3740 

DATAX 

6AA9 

DATE05 

6AB3 

DATE10 

6AC4 

DATE15 

36 

6AF8 

DATE20 

6B3E 

DATE30 

6B57 

DATE40 

6AA5 

DATEXP 

37 

5A50 

DESE10 

5A6D 

DESE15 

5A87 

DESE20 

5AD5 

DESEI30 

38 

5AB2 

DESE56 

5AE(4 

DESE57 

5A52 

DESETUP 

6307 

DIR 

3V 

*501B 

DIRING 

53AA 

DLI1; 

53CE 

DLI 2 

542E 

DLI220 

40 

42AA 

DLIST 

=D400 

DMACTL 

6A03 

DNSC01 

6A10 

DNSC02 

41 

6A48 

DNSC10 

6A57 

__DNSC15 _ 

DRAW04 

69D7 

DNSCRN 

59C0 

DRAW 

12 

59C2 

DRAWO3 

59C9 

59CF 

DRAW05 

59D1 

DRAW10 

43 

59F7 

DRAW15 

5A05 

DRAW20 

5 A 06 

DRAW30 

634F 

DRAWN 

44 

70D8 

DRWF05 

70DD 

DRWF20 

70EA 

DRWF21 

| 70EF 

DRWF22 

15 

. 7101 

DRWF30 

7117 

DRWF40 

7128 

DRWF50 , 

70B1 

DRWFLG 

46 

400A 

DSCROL 

41 ID 

DSPTBH 

403E 

DSPTBL 

6B79 

DXPTR1H 

47 

6B75 

DXPTR1L 

6B31 

DXPTR2H 

6B7D 

DXPTR2L. 



48 

5430 

ECAR 

54 c. A 

ECAR10 

543E 

ECAR20 

5458 

ECAR30 

49 

5460 

ECAR40 

5467 

ECAR50 

547B 

EC ARAD 

54 FA 

EOARDAT 

3 

54 B1 

EFLA10 

54D7 

EFLA20 

54AB 

EFLAG 

=002D 

ENDJMP 

51 

5064 

ENDR10 

506C 

ENDR20 

5070 

ENDR22 

505E 

ENDRND 

52 

5A19 

ERAS04 

5A1F 

ERAS05 

5A14 

ERAS06 

5A21 

ERAS10 

53 

4 5A41 

505A 

ERAS15 

5A4F 

ERAS30 

5A09 

ERASE 



54 

FADECT 

6FAE 

FCOLOR 

71A2 

FDLI 

71BA 

FDLI10 

55 

718D 

FDLI20 

71E3 

FDLINDX 

71DE 

FDLISEQ 

=0050 

FRLY 

1 

6FQ6 

FDLYCT 

6 BSC 

FFBYTE 

6F05 

FHIT 

. 6FB8 

FHPOS 

s 





5056 

FLASH 

6F03 

FLGCAR 


6Fo3 

FLGCARM 

6F03 

FLGCNT 

6FOF 

FLGH04 

6F1C 

FLGH06 


6F21 

FLGH10 

6F36 

FLGH20 

6F4A 

FLGH30 

6F4E 

FLGH40 


■6F54 FLGH50_AF6F FI RHAO __ AF71 FI FMA1 , - AFSO FI GH8Q 
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i. 

5 

6 


706B _FLGJiL5 - 
2.089 _FLGS45 

7QAA FLGS70 _ 

5057 FLSHCT 
6FA4 F YH 

,703C^HFPPS 
=D 004 Hf'OSMO 
=DOOO HFOSFQ 
’ 52G7 IBDLiO 
4P03 IDLIST 
6F 86 IFYL . 
6EED JHFLGS 
7.03TL.IHFPM _ 
54A4 IHME40 
5055 INCTR 
4CE0 IPFD10 
558F IPLY10 
4C88 IPMEM__ 

_ 4EF8 J8M.F30 
4FC7 ITAB15 
4FF6 ITAB40 
4F89 3TABLES 
559F I.TCH30 .. 
4 CFB IVBI . _ 

5C5C JMPADD . 
5089 JMPPI C_ 

4ooF m 

6^34 LASTING 
8872 LF'405 

- 7300 MO _ 

4B3 C M3TB L 
4D20 MAIN10 
4D8D .MA.IN50 * 
8322 MtlDJE* 
•655F MOVE 15 
83B 0 MQVE23 
_63D2 M0VE30 _ 
—0002 NACTYPE 
-0006 NTYPES 
6B85 OBJDAT 
5ADE OLDBDIR 
82EB ONXQP . 
848A 0VRL1P 
6346 OVRLAY 
=7400 80 
=D302- PACTL. 

=0201 PCO LR1_ 

=026CJPFLEN . 
4297 PLYRDAT 
5D1C PMQ332 
5D5F PM0400 
SPED PM0628 
5CE7 PMQV50 . 


702B.FLGS20 . 
7 08A FLOS50 
70AfiL FLBS80 __ 
6E04 FTOGL 
* 6F9A FYL 

—DOID BRACTL _ 

=D0IE. HITCLJR 
„ =D005. HP 0SM 1 
=D001 HP0SP1 
52A4 IBDLST 
6FE2 iELAiO 
6FFF I HFLlO _ 
6FD6.1HFPFC . 
547E. IHME10 
_ 547C IHMEM 

6444 IOBJ 10 
4CF1 IPFD20 

_ 55SB I PLYRDT_ 

6905_IS.FX _ 

4EA4 ISMEM. 

4FD8 ITAB20 _ 

,8011 ITAB50 
7558C ITCH10 
5562 ITCHAR S 

5ADC JMPCTR 


400F KY 
633D LA“STNZR 

—0008 LR _ 

4B26 M10 TBL 
41FC M4TBL 
4D63 MAIN15 
=2E80 MASFX 
4F84 MOV'D 10 
6363 MOVE16 
6385 MQV E24 . 
63D3 M QVE4 0 
6609 NEW1RND 


=0002 OBJMAX 

5ADD QL DBUGY_ 

=4000 OR B 
649C 0VRL20 

=0014 QVRLPX _ 

=7500 PI 
632B PATH 
=02C2 PCQLR2 
6A67_ PFLI10 
= D407_ PMBASE 
5D26 PMQ333 
5064 PM0405 
5CBA PM0V10 
5CFC PM0V31 _ 


5D41 PM0V34 
5D9A PM0V46 

5F7&, PMfJVA!-!: 


5D4E PM0V35 
5DA9 PM0V60 

4J5J?J^-raC3£IV63_ 
* 5^58 PMOV7Q 


7083 FL.BS3.0_ 
708C FL.GS 55 
7041 FL.GSCR 
71E4 FTOPDLI 


_ 47B6 HMEM 
=D006 HP0SM2. _ 
=D002 HP0SP2 
4F2B IDLI10 
6FE0 IFLAGS 
7016 IHFL20 
6FCC IHFPFPL 
5495 IHME20 
55 12 IHTXT 
6440 IOBJTB 
4CFA IPFD30 
4C 9B IPME10 
6909 ISFX 10 
4FA5 I TAB05_ 
4FE7 ITAB28 
5016 ITAB60 
5587 ITCH15 
5040 IVARid 

=oooc jmpdlyI 


42A7 LINCNT 


_5F43 M32TBL 
4B2C M5TBL 
_ 4D72 M AIN20 
=0004 MAXFON 
6358 MOVE 
6 56D MOVE20 
63C3 M0VE25 
642A M0V E45 
=D40E NMIEN 


6BC5 OBJMSK 
40 13 QLDHPQS 
=E000 OSC HAR S 
~64A1 0VRL40 
=0014 OVRLPY 
=7600 P2 
5C24 F f ATHt) 
=Q2C3 PC0LR3 
6A7F F'FL 120 
=7000 PME M 
5D2D PMQ334 
5D6A PM0410 
5CDC PM0V20 
5CF4 PM0V32 
5D86 PM0V40 
5DB4 PM0V61 


»^5E4.6 £14Ciy64-_ 
5F3D PM0V75 


, 4 , 


7099 FLGS60 
00C8 FLSDLY 
0010 FWDSFT) 


■D003 HF-0SP3 
4K41 ; IDLT30y 
6F9C>. EFVU;, 

7l?7l IH^3^ % 


54A2 

=0014 

=7.800 

4CC6 

4CA8 

4EB5 

4FAD 

4FEC 

5023 

5589 s - 

5Q2C* 


IHME50 

INCDLY 


IPFDATA 
IPME20 
ISME10 
ITAB10 
ITAB30 
ITAB7QT 
ilCH20‘ . 
TVARSj' ‘ 


5AE0 JMPNDX 


=0,0(14 ,LL„ ; 


=DOOB 
4D60 
4D81 
"7190 
635A* 
<6592' 
63C6 
_643E5_ 
=0008 


M3FL 

MAIN08 

MAIN30 

MFLGDAT 

;MD VEiQ 

MQVE27 

M0VE26 

M0VE50 

NF’ATH 


68Spi ©BJplZIf . 
4012 oLdVPQS 
6 473 QVRL05 
6471 OVRLAP 


=.770(7y 

=02c<)v: 
, 43B6 
6A5B 
5 DOC 
5D46 
,5DD7. 

:5CE4r; 

5D07 
5D83 
5DB1 


-PS " » 

PgqlrO 

PFDAtA 

PFL-INE 

PM0530 

PM0342 

PM0625 

f'M.0V75 

PMC)^33 : 

PM0V45 

PM0V611 
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PM0400 

PM0623 

PMQV50 


PMQV34 

PM0V46 

JRMPV6.2 

9M0V68' 


5D64 

5CBA 

5CFC 


PM0405 

PMOVIO 

PM0V31 


5D4E 

5DA9 


5E 


JS 


PM0V35 

PM0V60 

PM0V63 

PMQV70 


5D6A 

PM0410 1 

5DD7 

PM0625 

5CDC 

PM0V2O 

5CE4 

PM0V25 

5CF4 

PM0.V32. 

5 DO 7 

PM0V33 

5D86 

PMQV40 

5D83 

PM0V45 

5DB4 

PM0V61 

5DB1 

PM0V611 

521 b, JPM0V64* 

< — ^£26*. 

PMQV6A 

5E3D 

P.M0V75 

5e5c>- 

Mm&c* 




UPN DOWN -- for Atari systems 




D2s U„M65 




PMOV90 

PPL 

F'SCQRl 


R 

REDRAW 
REEL40 


5097 
=D01J( 
400 4 
=D20A 
6093 
60 A A 


ROU ND 

RSTD30 


.PMOVE 
PR I OR 
PSCQR2 
RANDOM 

Reel io 

REFL50 


-D300 PORTA 
\721D PROGEND 


6B69 PJPH 
4002 PSCORO 


712B 

,40.16 

4008 


RSTD40 
RSTDLI 
5AVBUF 
SCRCTR. 


4280 
715E. 
7173 


ROWBUF 
RSTD31 


RSTD44 


5E5E 
6C9B 
6091 
7056 
71 63 
7186 


RDSTAT1 

.REFL20 


REFLECT 


RSTD08 


5ESC RDSTAT2. 
6CA6, REFL30 
6003 RFLPAT_ 
7140 RSTD10 


7165 


RSTD48 


718A RSTD50 


=0012 

696E 

5ADB 


RTC^OK 

SCR233 

SORFLG 


6967 

4006 


6946 
69J!3 
6926 


SCR242 

SGRFLG2 


696.R' 


.SCR022. 
SCRQ27' 
SCROLL 


6957 

698E 


SCR023- 

SCR030 


SCR24.4 

SCR0C>8 


4000 SCRSPD 


» 

* 

P 
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